Select Code to Download

$string = 'My Test Data';
$regex = 'm/\btest\b/i';
if ($string =~ $regex){print "It Works!\n"}else{print "No joy!\n"};

$string = 'My Test Data';
$regex = 'm/\bTest\b/i';
$stmt = 'if ($string =~ $regex){print "It Works!\n"}else{print "No joy
+!\n"}';
eval $stmt;