#!/usr/bin/perl
use warnings;
use strict;
 
my $pat = 'GUAUG';
my ($line, $times, @at);
 
while (<DATA>) {
  if (/^[CGUA]+$/) {
    $times = () = m/$pat/g; 
    if ($times) {
      eval('/^' . ('.*?($pat)' x $times) . '.*?$/; @at = @-;');
      shift @at;
    }
  } else {
    ($line) = /^(\w+)$/;
  }
 
  if ($line and $times) {
    print "$line: $times match", $times>1 ? 'es' : '  ', " at @at\n";
    $line = $times = 0;
  }
}
 
__DATA__
YBL027W
GUAUGUUUAACAGUGAUAGUAUGUUUUGAACCUUUCACAAGAUUUAUCUUUAAAUAUGUUAUGA
BBL111C
UAUGUUUAACAGUGAUACUAAAUUUUGAACCUUUCACAAGAGUAUGGUAUGAAUAUGUUAUGAG
ABC456T
AUGUUUAACAGUGAUACUAAAUUUUGAACCUUUCACAAGAUUUAUCUUUAAAUAUGUUAUGAGU
DEF789U
UGUUUAACAGUGAUACUAAAUUUUGAACCUUUCACAAGAUUUAUCUUUAAAUAUGUUAUGAGUA
GHI012V
GUUUAACAGUGAUACUAAAUUUUGAACCUUUCACAAGAUUUAUCUUUAAAUAUGUUAUGUAUGU