#!/usr/local/bin/perl use Jcode; $search = 0; while(<>) { if ($search == 0) { print $_; } else { $_ =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C",hex($1))/eg; $b = Jcode->new($_)->utf8; print $b; } if (index($_, '検索語') >= 0) { $search = 1; } if (index($_, '') >= 0) { $search = 0; } }