『先頭が空白以外なら表示』
という簡単なことすらできないのはなぜ。。。

$aaa = "DSAFSA";
if ( $aaa =~ /^[A-Z]/ ) { print }

これで表示されない。。。

$aaa = "DSAFSA";
if ( $aaa =~ /^\S/ ) { print }

これでもだめ。。。
どうなってるの・゜・（ﾉд｀）・゜・