Try this:
#!/usr/bin/perl
#File:
use warnings;
use strict;
#set slurp mode
undef $/;
my $stuff_i_want;
while (<DATA>) {#read in your file
#match up to Today's Headlines (or whatever)
if (/Today's Headlines:<\/strong>/) {
$stuff_i_want = $'; #put the rest in $stuff_i_want
}
else {
#deal with this possibility;
}
}
#split on blank line (or whatever)
my @articles = split '\n\n', $stuff_i_want;
foreach my $thingie(@articles) {
#do something with your $thingie
print "here is a thingie: \n" , $thingie, "\n\n";
}
__END__
<html>
<head>
<title></title>
</head>
<body text="#000000" link="#0000ff" vlink="#551a8b" alink="#ff0000"
bgcolor="#ffffff">
<p align="center">PUBLICATION TITLE
<p align="center">(Publication Subtitle)
<br wp="br1"><br wp="br2">
<p align="center">
<strong>May 20, 2003</strong>
<br wp="br1"><br wp="br2">
<p align="center">(copyright notice)
<br wp="br1"><br wp="br2">
<br wp="br1"><br wp="br2">
<br wp="br1"><br wp="br2">
<p align="center">SOME ADVERTISEMENT HEADING
<br wp="br1"><br wp="br2">
<p align="center">
<p>blah blah blah advertisment blah blah blah advertisement blah blah
blah
advertisement blah blah blah advertisement blah blah blah advertisement.
<br wp="br1"><br wp="br2">
<br wp="br1"><br wp="br2">
<br wp="br1"><br wp="br2">
<p align="center"><strong>Tip of the Day</strong>
<br wp="br1"><br wp="br2">
<p align="center"><strong>Tip of the Day Subject</strong>
<br wp="br1"><br wp="br2">
<p>blah blah blah tip of the day blah blah blah tip of the day blah blah
blah tip of the day blah blah blah tip of the day blah blah blah tip of
the
day.
<br wp="br1"><br wp="br2">
<br wp="br1"><br wp="br2">
<br wp="br1"><br wp="br2">
<p align="center"><strong>Today's Headlines:</strong>
<br wp="br1"><br wp="br2">
<br wp="br1"><br wp="br2">
<p><strong>Story Tag Line</strong> blah blah blah story blah blah blah
story
blah blah blah story blah blah blah story blah blah blah story blah blah
blah story blah blah blah story blah blah blah story blah blah blah
story.
<br wp="br1"><br wp="br2">
<br wp="br1"><br wp="br2">
<p><strong>Story Tag Line</strong> blah blah blah story blah blah blah
story
blah blah blah story blah blah blah story blah blah blah story blah blah
blah story blah blah blah story blah blah blah story blah blah blah
story.
<br wp="br1"><br wp="br2">
<br wp="br1"><br wp="br2">
<p><strong>Story Tag Line</strong> blah blah blah story blah blah blah
story
blah blah blah story blah blah blah story blah blah blah story blah blah
blah story blah blah blah story blah blah blah story blah blah blah
story.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
