#!/usr/bin/perl
use warnings;
use strict;

my $string = 'd"alice';

{
    use re 'debug';

    open STDERR, '>', 'err.txt' or die $!;
    open STDOUT, '>', 'out.txt' or die $!;

    $string =~ s/\bd\"//g;
}

$string =~ /alice/;