Select Code to Download

$pattern = qr/A/;
if ('a' =~ m/$pattern/i) {
...
} else {
   print("No match (case-sensitive)\n");
}

$pattern = qr/A/;
if ('a' =~ $pattern) {
...
} else {
   print("No match (case-sensitive)\n");
}