$KCODE = "EUC"

while(line = ARGF.gets)
  if line =~ /(¡Úȯ²»¡ª?¡Û)([^¡Ú\t]+)(¡Ú|\t|\n)+?/
    f1 = $`
    f2 = $1
    f4 = $3
    f5 = $'
    f3 = $2.gsub(/ae'/,"\xab\xc5")\
    .gsub(/ae`/,"\xab\xc4")\
    .gsub(/ae/,"\xa9\xdc")\
    .gsub(/§ï'/,"\xab\xcd")\
    .gsub(/§ï`/,"\xab\xcc")\
    .gsub(/§ï/,"\xab\xb0")\
    .gsub(/¦Á'/,"\xab\xc7")\
    .gsub(/¦Á`/,"\xab\xc6")\
    .gsub(/¦Á/,"\xab\xb9")\
    .gsub(/¦«'/,"\xab\xcb")\
    .gsub(/¦«`/,"\xab\xca")\
    .gsub(/¦«/,"\xab\xb7")\
    .gsub(/£ï'/,"\xab\xc9")\
    .gsub(/£ï`/,"\xab\xc8")\
    .gsub(/£ï/,"\xab\xb8")\
    .gsub(/a'/,"\xa9\xd7")\
    .gsub(/a`/,"\xa9\xd6")\
    .gsub(/i'/,"\xa9\xe3")\
    .gsub(/i`/,"\xa9\xe2")\
    .gsub(/e'/,"\xa9\xdf")\
    .gsub(/e`/,"\xa9\xde")\
    .gsub(/o'/,"\xa9\xca")\
    .gsub(/o`/,"\xa9\xc9")\
    .gsub(/u'/,"\xa9\xef")\
    .gsub(/u`/,"\xa9\xee")\
    .gsub(/y'/,"\xa9\xf2")\
    .gsub(/n'/,"\xa8\xf5")\
    .gsub(/r'/,"\xaa\xc8")\
    .gsub(/¦Ä/,"\xa9\xe6")\
    .gsub(/§Ù/,"\xaa\xe9")\
    .gsub(/¦Ç/,"\xaa\xfa")\
    .gsub(/¢é/,"\xaa\xe8")
    ###.gsub(/¦È/,"\xab\xa3")\
    $stdout.puts( f1 + f2 + f3 + f4 + f5 )
  else 
    $stdout.puts( line )
  end
end