if ($zeile =~ m/(exon)/g)
 {
 print $1;
 }