Select Code to Download

my $pattern = qr/one/i;

my $sensitive   = qr/one/;
my $insensitive = qr/one/i;
...
      print "Unmatched: pattern was $pattern and token was $_\n";
   }
}