Select Code to Download

my ($before, $after) = $seq =~ /(..)$find(..)/;

>perl -wMstrict -le
"my $seq  = 'atggggtaggggat';
...
(tg)ggg(ta)
(ta)ggg(ga)
(ag)ggg(at)