#!/usr/local/bin/perl -w

#Example 4
$string = "ab de fd ac rd ad";
$var = "aa";
for (1..10){
    print "$var: ";
#    print "$1 found in $string" if $string =~ /($var)/;
   print "$1 found in $string" if $string =~ /($var)/o;
    print "\n";
    $var++;
}