if ( $zeile =~ m/(ex)on/ ) {
  print $1, "\n";
}