Select Code to Download

$criteria = "(abc|123)\$";
$teststring = "Foo walks up and says: abc";
...
if ( $teststring =~ /$criteria/ ) {
      print "it worked!\n";
}

$teststring =~ /($criteria)/