use strict;
use warnings;
use HTML::TokeParser::Simple;
my %xlat = (
Smiley => ':)',
Wink => ';)',
);
my $p = HTML::TokeParser::Simple->new( \*DATA );
while ( my $t = $p->get_token ) {
if(
$t->is_start_tag('img')
and my $r = $xlat{$t->return_attr->{alt}}
) {
print $r;
}
else {
print $t->as_is;
}
}
__END__
