Also, once you get more than one line into $line7, you want non-greedy matching .*? as there are multiple "exon" strings

also, you don't want to use m//g in scalar context

Also, perlrequick is a great quick reference :)