perl -wle'
use HTML::Template;
my $ht = HTML::Template->new(scalarref => \<<EOM
document.write(unescape("%3Cscript ... %3C/script%3E"));
EOM                                                                         
);
print $ht->output'
document.write(unescape("%3Cscript ... %3C/script%3E"));