#!/usr/bin/perl
use Jcode;
open (IN ,$ARGV[0]);
while (<IN>){
    $_ =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    Jcode::convert(\$_,euc);
    print $_;
    }
close (IN);
exit;