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

##</code><code>##

$file =~ s/^\s+//mg;
$file =~ s/\s+$//mg;