Re: simple replace question

If you need to deal with a HTML document:

#!/usr/bin/perl
use strict;
use warnings;
use HTML::TokeParser;


# Simple example :

my $doc = <<END;
<html>
<head>
</head>
<body>
<p>FooOooo barbar baz</p>
<p>Babar Foofoo zba zba</p>
<p>oofOOoof zzbb aarr</p>
</body>
</html>
END

my $p = HTML::TokeParser->new( \$doc );

while ( $p->get_tag("p") ) {
    my $text = $p->get_trimmed_text;
    print "Text: $text\n";
}
[download]

hth,
PooLpi

'Ebry haffa hoe hab im tik a bush'. Jamaican proverb

In Section Seekers of Perl Wisdom