Perl初心者コーナーで再質問してみ。
http://pc.2ch.net/test/read.cgi/php/1032070299/l50