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