2000/03/08 (水) 04:37:05      [mirai]
#! perl.exe

while (<>) {
    print $_ if m/せいきひょうげん/;
}