#!/usr/bin/perl use warnings; use strict; our $html = <<'EOHTML';

The relationship can be expressed by the following equation:

y <= (7x³ + 3x²)/((x - 3)(x - 5)

Of course x != 3 & x != 5 -- That goes without saying.

:) EOHTML use HTML::Parser; my $parser = HTML::Parser->new( handlers => { default => [sub { print @_ }, 'text'], # print out HTML tags unmodified text => [\&process_text, 'text'], }, ); $parser->parse($html); sub process_text { $_ = shift; # Make any changes to the text here... s/--/—/g; s/:\)//g; # and so forth. # Now print out the modified text. print; } ####

The relationship can be expressed by the following equation:

y <= (7x³ + 3x²)/((x - 3)(x - 5)


  Of course x != 3 & x != 5  —  That goes without saying.