>>292
http://perldoc.jp/docs/perl/5.8.4/perlfunc.pod#item_readline_EXPR

>>298
http://www.kt.rim.or.jp/~kbk/perl-5.8/guess.html