A fun one is something like:

my $string = 'GUAUGUUUAACAGUGAUACUAAAUUUUGAACCUUUCACAAGAUUUAUCUUUAAAUA
+UGUUAUGA';
my @pieces = split(/GUAUG/,$string,-1);
print "count [", @pieces - 1, "]\n";
[download]

There you have the count and with a bit of math you can figure out the locations :-D