>>479
> 自分自身のファイル名を取得するにはどうしたらいいですか?
http://perldoc.com/perl5.8.4/pod/perlvar.html#$PROGRAM_NAME

> 文字列の中から特定の文字数だけ取得
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlfaq4.html#How_can_I_access_change_the_firs