print "英語の名詞を入力してください。:";
$eng = <STDIN>;
chop($eng);

if($eng =~/^[aiueo]/){		##aunt, uncle, ear, island, owl などはOK(正しく判定できないものも有)
    print "an ",$eng,"\n";
}
else{
    print "a ",$eng,"\n";
}
