use strict;
use warnings ;

my $string = 'TATGCATGGCATATATATACGTACGTATGCATATATATGCTAA' ;

my %found_strings ;
for( my $start = 0; $start < length( $string ); $start++ ) { 
    my $string_to_check = substr( $string, $start ) ;
    
    if( $string_to_check =~ /(ATG.*?TAA)/ ) { 
	$found_strings{ $1 } = 1 ;
    }

}


my @found = keys %found_strings ;

foreach my $found ( @found ) { 
    print "$found\n";
}

exit() ;