It doesn't work because you check for the beginning and the end tags
in the same line, but you have splitted the text in more lines, and the
can be found in a line but the tag on another line probably.
You can use something like this:
$html =~ s|]*>.*?]*>||si;
So you don't need to check each
On Wednesday, Sep 3, 2003, at 06:08 US/Pacific, Sara wrote:
#!/usr/bin/perl
use LWP::Simple;
print "Content-type: text/html\n\n";
$url = 'http://yahoo.com';
$html = get($url);
[snip]
$html =~ s|.*?<\/head>||s;
print "$html\n";
what you get from 'get' is a scalar $html
that is the WHOLE PAGE
