====== 01 perlでtrim ======

$string =~ s/^\s*(.*?)\s*$/$1/;