Help for this page
if ($blah=~m/^\s/) { $blah=~s/^\s+//; }
if (index($blah," ")) == 0 { $blah=~s/^\s+//; }