#!/your/perl/here

use strict;
use warnings;

my $x = q/Just Another Perl Hacker/;

if ($x =~ m/(?The Purl Caretakers' John)/)
{
	print "Anagram Regex?\n";
}

exit;