Datei - Zeile springen

[Struppi]

ich hab eine Datei (Handle ist "LESEN"). Wenn ich einen bestimmten RegExp treffe, dann möchte ich diesen Ausgeben und die komplette nächste Zeile.

#! /usr/bin/perl -w  
use strict;  
  
while(<DATA>) {  
 if( /BLA(\w+)/) {  
  my $next = <DATA>;  
  print $1,$next;  
  
 }  
}  
__DATA__  
asdfsdf  
BLAafddsfdsfdf  
hier  
asdfsdf  
asdfsdf  
BLAasdfsdfdsf  
dsfdsfdf  

Struppi.