As you wish :)

print "$_: ", $t = () = GGGGGGGAGAAAAAAAAAAAAAAAGAAGGA =~ /(?=\Q$_\E)/
+g, $/ for AAAAA,GAAGG,GGAGA,GGGGG
[download]

Removing whitespaces is left as an exercise for the reader :)