Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl --

use warnings;
...
print "$chr\n";
__END__

Select or download this

Compiling REx `(this|that)|(\w+)'
size 19 Got 156 bytes for offset annotations.
...
String too short [regexec_flags]...
Match failed
Freeing REx: `"(this|that)|(\\w+)"'