Datei - Zeile springen

[Struppi]

Jupp, überlesen.

my $pattern = 'BLA(\w+)';

my $found = 0;
while(<DATA>) {
  next if (!/$pattern/ and !$found);
  print $_ if $found;
  $found = ($found ? 0 : 1);
}

Wieso denn so umständlich?
Und es ist nich ganz was der OP wollte.

[code lang=perl]while(<DATA>) {
next if (!/$pattern/);
my $next = <DATA>
print $1, $next;
}

  
Struppi.

-- 
[Javascript ist toll](http://javascript.jstruebig.de/) (Perl auch!)