lab4

gistfile1.pl

my $callback = sub {
    my ($line) = @_;

    return line_match($line, @words);
};

my @matches;
while (my $line = <STDIN>){
    if (my $result = scan_input( $., $line, $callback )) {
        push @matches, $result;
    }
}

for my $m (@matches) {
    for my $k (keys %$matches) {
        print $matches->{$k};
    }
}