#!/usr/bin/perl

if($#ARGV>=0) {
    $infile=$ARGV[0];
} else {
    $infile="-";
}

if($#ARGV>0) {
    $outfile=$ARGV[1];
} else {
    $outfile="-";
}

open(IN,$infile);
open(OUT,">$outfile");

while(<IN>) {
    s/MS-Gothic/GothicBBB-Medium-RKSJ-H/g;
    s/MS-Mincho/Ryumin-Light-RKSJ-H/g;
    print OUT $_;
}