$string =~ s/^\s+|\s+$//gm;

##</code><code>##

s/^[\t\f ]+|[\t\f ]+$//mg;