use strict; use warnings; use HTML::Tidy; my $html="Email Us"; my $tidy = HTML::Tidy->new(); my $clean = $tidy->clean($html); print "Clean HTML:\n---------------------------\n$clean\n";