in reply to Re: Parsing HTML
in thread Parsing HTML

Sorry, but I couldn't resist. 
use strict;
use warnings;

my $x = "<html onLoad='if (x > 5) { exit; }' />";

print "'$x'\n";

$x =~ s|</?[^>]*>||sg;

print "'$x'\n";
-----
'<html onFocus='if (x > 5) { exit; };' />'
' 5) { exit; };' />'

[download]

------
We are the carpenters and bricklayers of the Information Age.

Then there are Damian modules.... *sigh* ... that's not about being less-lazy -- that's about being on some really good drugs -- you know, there is no spoon. - flyingmoose

I shouldn't have to say this, but any code, unless otherwise stated, is untested

In Section Seekers of Perl Wisdom