>>146
$somename =~ s/\w.*//;
の前後に
print "Before : $somename\n";
print "After : $somename\n";
とでもつけてみたら?

それから
if ($name eq "~ /^akira\b/i"){
は
if ($name =~ /^akira\b/i){
が意図するところだと思うが。