print "Match: $1\n" if $test_string =~ /((?:f))\1/;