#!/usr/bin/perl --
use strict;
use warnings;
use Capture::Tiny qw/ capture /;
use Data::Dump qw/ dd /;

my $string = 'd"alice';

my( $stdout, $stderr, $exit ) = capture {
    use re 'Debug', 'ALL';
    no re 'Debug', 'COMPILE';
    $string =~ s/\bd\"//g;

};

$string =~ /alice/;
dd( $stdout, $stderr, $exit , $string );
__END__
(
  "",
  "Guessing start of match in sv for REx \"\\bd\\%\"\" against \"d%\"alice\"\nFound anchored substr \"d%\"\" at offset 0
...\nstart_shift: 0 check_at: 0 s: 0 endpos: 1\nDoes not contradict STCLASS...\nGuessed: match at offset 0\nMatching REx
 \"\\bd\\%\"\" against \"d%\"alice\"\n  Setting an EVAL scope, savestack=48\n   0 <> <d\"alice>            |  1:BOUND(2)
\n   0 <> <d\"alice>            |  2:EXACT <d\">(4)\n   2 <d\"> <alice>            |  4:END(0)\nMatch successful!\nMatch
ing REx \"\\bd\\%\"\" against \"alice\"\nGuessing start of match in sv for REx \"\\bd\\%\"\" against \"alice\"\nDid not
find anchored substr \"d%\"\"...\nMatch rejected by optimizer\nNot present...\nMatch failed\n",
  1,
  "alice",
)