($str) = ($str =~ /^\s*(.*?)\s*\z/)

##</code><code>##

$str =~ s/^\s+//;
$str =~ s/\s+\z//;