#!/usr/bin/perl -- use warnings; use strict; use HTML::TreeBuilder; my $html = <<'__HTML__';

and a one two three four

another |one| and another | one |

__HTML__ { my $h = HTML::TreeBuilder->new_from_content($html); print $h->as_HTML('<>&',' ',{}), "\n"; $h->look_down(_tag => q{font}, sub{ $_[0]->replace_with_content( $_[0]->content_refs_list ); return; }, ); print $h->as_HTML('<>&',' ',{}), "\n"; } __END__

and a one two three four

another |one| and another | one |

and a one two three four

another |one| and another | one |