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

my @cutted_parts = split /\Q$cutter\E/,$big_dna;