задачка

[ocehb]

имеется файл с текстом, разделенном на абзацы.

необходимо читать текст поабзацно, и если в первой стоке абзаца встречается некое слово, то записывать его в файл-1, если другое — то в другой, etc.

use IO::File;

my $io = new IO::File shift;
my %h = @ARGV;

local $/ = "";

while (<>) {
    foreach my $h (keys %h) {
        next unless (m#\A.*?$h#m);
        ref $h{$h} eq "IO::File" or $h{$h} = new IO::File "> $h{$h}";
        $h{$h}->print ($_);
        last;
    }
}

использование:

# perl script file "Jane" file1 "Mike" file2 "OCEHb" file3