#!/usr/bin/perl -w

use strict;
use LWP::Simple;


my %URL = ('jazztimes', 'http://jazztimes.com/JazzNews/JazzNews.asp',
           'allaboutjazz', 'http://allaboutjazz.com');

my %pattern = ('jazztimes', '<a href="http://jazztimes\.com/JazzNews/JazzNews\.asp\?cmd=view&articleid=\d+">[^<]+</a>',
               'allaboutjazz', '/news/ft/2003.*?</a>');

my $data = get $URL{'jazztimes'};


print "Content-type: text/html\n\n";
                                
print "JazzTimes.com:<br>";
                                
while ($data =~ m!$pattern{'jazztimes'}!ig) {
    print "$&<br>";             
}                               
                                
print "<br>";                   
print "allaboutjazz.com:<br>";
                                
$data = get $URL{'allaboutjazz'};
                                
while ($data =~ m!$pattern{'allaboutjazz'}!ig) {
    print "<a href=http://allaboutjazz.com" . "$&<br>";
}