head     1.1;
branch   1.1.1;
access   ;
symbols  gfxboot25:1.1.1.1 morphix:1.1.1;
locks    ; strict;
comment  @# @;


1.1
date     2005.10.17.17.11.57;  author tcheun;  state Exp;
branches 1.1.1.1;
next     ;

1.1.1.1
date     2005.10.17.17.11.57;  author tcheun;  state Exp;
branches ;
next     ;


desc
@@



1.1
log
@Initial revision
@
text
@#! /usr/bin/perl

use Encode;
use HTML::PullParser;

sub enc_ent;


while(<>) {
  s/(&[^;]+;)/enc_ent($1)/ge;
  print
}


sub enc_ent
{
  encode_utf8(HTML::PullParser->new(doc => \$_[0], text => 'dtext')->get_token->[0]);
}
@


1.1.1.1
log
@morhhix
@
text
@@
