#!/usr/bin/perl

use strict;
use warnings;

my $test_string = "This is not a waffle";

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