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

    use re 'debug';
    $string =~ s/\bd\"//g;
}