#!/usr/bin/env perl
#
# public domain
#
# caution this reads the entire file into memory
#

use strict; use warnings;

my $filein = shift;
my $fileout = shift;

my $lq = "\x{80}\x{9c}";
my $rq = "\x{80}\x{9d}";

my $data;
{
	open my $in, '<', $filein or die "$!";
	$/ = undef;
	$data = <$in>;
}

$data =~ s/$lq/\"/g;
$data =~ s/$rq/\"/g;

{
	open my $out, '>', $fileout or die "$!";
	print $out, $data;
}

0;