$_ = 'TATATATATATA';

    while (/TATA/g) {
        print "Matched 'TATA' at position ", pos, "\n";
    }


##</code><code>##

Matched 'TATA' at position 4
Matched 'TATA' at position 8
Matched 'TATA' at position 12