if ($blah=~m/^\s/) {
    $blah=~s/^\s+//;
}

##</code><code>##

if (index($blah," ")) == 0 {
    $blah=~s/^\s+//;
}