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