Trapping re 'debug'

Select or download this

$ perl -Mre=debug '1 =~ `'
Freeing REx: `,'
Compiling REx `1'
...
Found anchored substr `1' at offset 0...
Guessed: match at offset 0
Freeing REx: `1'

Select or download this

$ perl -Mre=debug -e 'BEGIN { close STDERR } 1 =~ 1'
Freeing REx: `1'

Select or download this

re.pl:
package TrapRe;
sub TIEHANDLE {
...
Found anchored substr `1' at offset 0...
Guessed: match at offset 0
Freeing REx: `1'

Select Code to Download