for my $qfn (@qfns) {
    my $text;
    {
        open(my $fh, '<', $qfn)
            or die("Can't open file \"$qfn\": $!"\n);
        local $/;
        $text = <$fh_in>;
    }

    $text =~ s///;

    {
        open(my $fh, '>', $qfn)
            or die("Can't create file \"$qfn\": $!"\n);
        print($fh $text);
    }
}