sub find_coding {
         my ( $seq ) = @_;
         while ( $seq =~ /($regex)/g ) {
                 my $match = $1;
                 my $sequence = find_coding($match);
                 my $allmatch = find_coding($sequence);
                 print "Coding region: $allmatch", "\n";
         }
 }