#!/usr/bin/perl -w
use strict;

my $eingegebeneSequenz = "gtacccctacgtaaaacgtatttcacagtaagtacgtacacaca";
my @subSequenzen = split(/(?<=gta)/, $eingegebeneSequenz);

print "@subSequenzen";