use strict; use warnings; my $log = parse_regex( q#(\\.|["']|x)# ); print $log; sub parse_regex { my ($regex) = @_; #--- redirect STDERR open my $olderr,">&STDERR"; close STDERR; open STDERR,">",\ my $parselog; # --- compile regex eval q{ use re 'debug'; qr/$regex/; }; # --- restore STDERR close STDERR; open STDERR, ">&", $olderr; # warn "STDERR Restored! =)\n"; return $parselog; }