=========

tl;dr: Change the order:

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

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

Also note that this method may interfere with other output in a real program.