Select Code to Download

my %prices = $str =~ m/((?:$animal)s?)\s(?:is|are)\s(\$\d+)/g;

use strict;

...
if($something =~ m/((?:bing|bong|bang))/i) {
 print "Found '$1' in '$something'\n";
}

Found 'bang' in 'This is a bang of a bing thing'

...
my @list = qw / bing bong bang /;
if($something =~ m/(?:@list)/i)
...

 ___
/\__\ "What is the world coming to?"
\/__/ www.wolispace.com