#!/usr/bin/perl -w

my $Mincho = ':0:kochi-mincho';
my $Gothic = ':0:kochi-gothic';

my $s;

while (<>) {
  $s = $_;
  $s =~ s/Ryumin-Light/$Mincho/g;
  $s =~ s/GothicBBB-Medium/$Gothic/g;
  $s =~ s/!//g;
  print $s;
}
system("mktexlsr");