$criteria = "(abc|123)\$";
$teststring = "Foo walks up and says: abc";

if ( $teststring =~ /$criteria/ ) {
      print "it worked!\n";
}

##</code><code>##

$teststring =~ /($criteria)/