#!/usr/bin/perl -w

$_ = "xxxfoofeefiizzz";
print "point #1; \$\_: ", $_, "\n";

if (/f(..)f(..)f(..)/) {

    print "point 2: MATCH ";
    print "\$1==$1 ";
    print "\$2==$2 ";
    print "\$3==$3 ";
    print "\n";
    print "point #3\n";
    print "\$`==$` ";
    print "\$&==$& ";
    print "\$'==$' ";
    print "\n";
}

print "point #4; \$\_: ", $_, "\n";