Select Code to Download

my $left_text   = [ qw{ when rome romans} ];
my $right_text  = 'When in Rome, do as the Romans.';
...
my $found  = () = $right_text =~ m/$regex/g;

print $found, $/;