[perl]檢查字串是否皆為英數字所組成

檢查該字串是否為第一字為英數字且其餘字為英數字及一些符號所組成

$aStr = "abc*-123";

if ($aStr =~ /^[a-zA-Z0-9][a-zA-Z0-9\~\@\#\$\%\^\&\*\+\-\.\_]*$/) {
　print "yes"; }
else {
　print "no";
}