Ok, I added this line before the other regex and it seemed to work, though it is a little specific to that problem. it simple removes anything that has more than one pointy bracket after it. If you want to keep these in you can always replace it with some character and replace it with the pointy brackets after its done with the html tag stripping. This is the revised code

#!/usr/bin/perl -w

open FILE, "c:\\html\\test.html" || die "can't open file";

@text = <FILE>;
$text = join( "", @text );

close FILE;

#print $text;
$text =~ s/>[>+]//g; # < -- Added this line
$text =~ s/\<(.*?)\>//sg;

print $text;
[download]

--=Lolindrath=--