Select Code to Download

#!/usr/bin/perl

use strict;
...
my $test_string = "This is not a waffle";

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