$pos = $[;
while (($pos = index($string, $lookfor, $pos)) >= $[) {
    print "Found at $pos\n";
    $pos++;
}
