if ($string =~ /^\s+$/)

##</code><code>##

$string =~ s/\s+(\w.*)/$1/;