my $big_dna = 'TGAACCCGGGATTTGAGATTCCGGGGTTAAAAACGATTGAACCCGGGATTTGAGATTCCGGGGTTAAAAA';
my $cutter = 'GATT';

$big_dna =~ s/$cutter/#/g;

my (@cutted_parts) = split /#/,$big_dna;