String Zeilenweise durchlaufen

[Perl Anfänger]

Hi

use strict;

use Data::Dumper;

my $pattern = 'doedel';
my @lines = <DATA>;
chomp @lines;
{
  push @lines, 'not found' and last unless grep { /$pattern/ } @lines;
  @lines = map( test($), @lines );
}
print Dumper @lines;

sub test {
  local $ = shift;
  return $_ .= (/$pattern/ ? '...found!' : '');
}

  
den Code versteh ich nicht wirklich :-)  
  
könntest du den bitte erklären?  
das sieht auf jedenfall interessant aus!  
  
Danke!