Datei - Zeile springen

[Grub]

Hi all,

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. Hab das jetzt so gelöst, aber find das nicht wirklich optimal:

while(<LESEN>)
{
if($x == 1) {print "$_";$x=0;next}
if( $_ =~ /BLA(\w+)/) { print "$1 ";$x=1}
}

Wie kann ich das eleganter machen?

ciao,
Grub