use strict;

my $eingegebeneSequenz = "gtacccctacgtaaaacgtatttcacagtaagtacgtacacaca";
my @subSequenzen = split('gta', $eingegebeneSequenz);

print "@subSequenzen";