Select Code to Download

my $str3 = 'ATGATG';
my $str4    = 'ATGATG';
...
$catted =~ s/(.*)(.+) (?=\2)/$1/;

print "$catted\n";