Select Code to Download

my @words = qw/one One/;
...
      print "Unmatched: pattern was $pattern and token was $_\n";
   }
}

     my $case = shift;
     my $pattern = $case ? qr/$pattern/i : qr/$pattern/;
     if (/$pattern/) {
        # code
     }