open(GENBANK, "/Users/Desktop/Genes.fasta") or die; 
my $content = join("", <GENBANK>); 
close(GENBANK);

sub mysub{
return shift =~ /(\w+\W+)\n/g;
 
}
my @matches = mysub($content);
print "@matches\n";