#!/usr/bin/perl

$_ = 'TATATATATATA';
$str = "TATA";
$p = -1;
while (1) {
    $p = index($_,$str,$p+1);
    last if $p < 0;
    print "Found $str at position $p\n";
}