ftp.cse.unsw.edu.au/2014.06.ftp.cse.unsw.edu.au.tar/ftp.cse.unsw.edu.au/pub/doc/languages/perl/nutshell/ch4/index

Text File | 1992-10-18 | 110 b | 6 lines

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