01 perlでtrim
$string =~ s/^\s*(.*?)\s*$/$1/;