use strict;
use warnings;
use Encode qw/ encode decode /;

while (<>) {
    s/charset=gb2312/charset=UTF-8/i;
    s{image/Active.css}{image/perl.css};
    print encode('UTF-8', decode('GBK', $_));
}