#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use Data::Dumper;

my $html = '<TABLE width=468 style="border-collapse:collapse">
<TR><TD><TABLE width=468 style="border-collapse:collapse" cellpadding=2> <TR><TD class=head>Artist</TD><TD class=head>Song</TD></TR>
<TR class=g><TD class=i><A href="/my-bloody-valentine-rxzg3.html">My Bloody Valentine</A></TD><TD class=j><A href="/my-bloody-valentine-lovely-sweet-darlene-9lgrnkb.html">Lovely Sweet Darlene *</A></TD></TR>
<TR class=h><TD class=i><A href="/jennifer-love-hewitt-d193f.html">Jennifer Love Hewitt</A></TD><TD class=j><A href="/jennifer-love-hewitt-i-want-a-love-i-can-see-jv2mj67.html">I Want A Love I Can See *</A></TD></TR>
<TR class=g><TD class=i><A href="/jennifer-love-hewitt-d193f.html">Jennifer Love Hewitt</A></TD><TD class=j><A href="/jennifer-love-hewitt-no-ordinary-love-4rftntr.html">No Ordinary Love *</A></TD></TR>';


my @data = ();
while ( $html =~
    m|<TD class=\w><A href="([^"]+)">([^<]+)</A></TD>|g )
{
    push( @data, { link => $1, name => $2 } );
}




print Dumper(\@data);

#### result ####
# $VAR1 = [
#    {
#      'link' => '/my-bloody-valentine-rxzg3.html',
#      'name' => 'My Bloody Valentine'
#    },
#    {
#      'link' => '/my-bloody-valentine-lovely-sweet-darlene-9lgrnkb.html',
#      'name' => 'Lovely Sweet Darlene *'
#    },
#    {
#      'link' => '/jennifer-love-hewitt-d193f.html',
#      'name' => 'Jennifer Love Hewitt'
#    },
#    {
#      'link' => '/jennifer-love-hewitt-i-want-a-love-i-can-see-jv2mj67.html',
#      'name' => 'I Want A Love I Can See *'
#    },
#    {
#      'link' => '/jennifer-love-hewitt-d193f.html',
#      'name' => 'Jennifer Love Hewitt'
#    },
#    {
#      'link' => '/jennifer-love-hewitt-no-ordinary-love-4rftntr.html',
#      'name' => 'No Ordinary Love *'
#    }
#  ];
#