#! /usr/local/bin/perl
# %2e%54 みたいな「パーセント文字列(笑)」のパーセントを取って出力
# 文字コードについては、勝手にうまいことしてください :D
# (このスクリプト自体は EUC-JP)
print '>';
while(<>) {
  s/[ \t\r\n]*$//; s/^[ \t\r\n]*//;
  last if (/^$/);
  s/\%([0-9A-Fa-f]{2})/pack("C",hex($1))/eg;
  print $_ . "\n";
  print '>';
}
exit;