>>445
文法チェック済み。動作確認はまだ。
#!/usr/bin/perl

# コマンドライン引数でファイル名を指定。

exit 0 unless (@ARGV);

if (open IN, "<$ARGV[0]") {
read IN, $text, (stat(IN))[7];
close IN;
} else {
printf("%s: %s\n", $ARGV[0], $!);
exit 0;
}

$text =~ s/\r//g;
$text =~ s/\n//g;
$text =~ s/\./.\n/g;
$text =~ s/\?/?\n/g;
$text =~ s/!/!\n/g;

@lines = split(/\n/, $text);
foreach (@lines) {
printf("%s\n", $_) if (m/\s?(go|goes)/i);
}

__END__