>>33
Perlなら、

$str !~ /^   /

じゃダメなの?