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