Re: is my HTML tag stripper up to par?

Dan Jacobson wrote:

Is my HTML tag stripper up to par?
$ cat striptag
#!/usr/bin/perl -w
#usage example: striptag font div < file.html
read( STDIN, $_, -s STDIN );
foreach my $tag (@ARGV) { s@</?$tag.*?>@@sig }
print;

perldoc -q "How do I remove HTML from a string?"

--
This fortune is inoperative. Please try another.