#!/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 {
eval q{
    use re 'debug';
    $string =~ s/\bd\"//g;
    
};};


$string =~ /alice/;
dd( $stdout, $stderr, $exit , $string );