ciao a tutti

devo convalidare una stringa:
codice:
my $str='RMNRTIRTU1%';

if ($str=~ m/.{4}(T|_)(I|_)RTU(1|2|3|4|5)%/ ) {

print "$str\n";
}
non capisco perchè mi stampa pure se ci metto una Q in più tra i primi 4 caratteri

mi deve verificare che prima di TIRTU1% ci devono essere esattamente 4 caratteri

grazie

EDIT:

forse ho capito, mancava il ^ all'inizio