Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
...
$chr = "this and that";
$chr =~ s/(this|that)|(\w+)/$1\U$2/g; #error reported
print "$chr\n";

Select or download this
```
this AND that
```