use v5.12;
my $seq = 'TGCAACTGCATACGTACTCGACTGCATT';
my $restriktion = 'TG';
say for split /$restriktion/, $seq;