Select Code to Download

my $left_text   = [ qw{ when rome romans} ];
my $right_text  = 'When in Rome, Romans do as the Romans do in Rome.';

#!/usr/bin/perl
use strict;
use warnings;
...
print "Found = $count\n";
__END__
Found = 3

my $left_text   = [ qw{ when rome romans} ];
my $right_text  = 'When in the Terrordrome, do as the Romans.';

#!/usr/bin/perl
use strict;
use warnings;
...
print "Found = $count\n";
__END__
Found = 2