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