#! perl.exe

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