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