Select Code to Download

[dean:~]$ perl -v

...
Unrecognized escape \U passed through in regex; marked by <-- HERE in 
+m/a\U <-- HERE bc/ at /tmp/deleteme.pl line 6.
'aBC' =~ (?-xism:a\Ubc)

#!/usr/bin/perl
use strict;
...
print "'$target' =~ $patt\n";
print $target =~ $patt;
print $/;