Select Code to Download

$string = 'My Test Data';
print $string =~ m/\btest\b/i ? "Match\n" : "No match\n";

$string = 'My Test Data';
$regex = '(?i)\btest\b';
print $string =~ $regex ? "Match\n" : "No match\n";