Select Code to Download

my @words = qw[ new old number start simple cross heavy die exit ];
my $string = q~whatever the NEw old you're trying to match~;
...
}
__END__
the $1 (aka ret) is => NEw