1
2
3
4

while ( local $_ = <$INFH> ) {
  if ( m{_([^_<]+)} ) {
    print "Treffer: $1\n";
  }

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!