while (<DATA>) {
    if (my ($a, $b, $c, $d) = (m/TD class=i><A href="([^"]*)"\s*>([^<]*)<.*TD class=j><A href="([^"]*)"\s*>([^<]*)</)) {
        print "($a, $b, $c, $d)\n";
    }
}
__END__
<TR class=g><TD class=i><A href="/page1.html">Page name here</A></TD><TD class=j><A href="/page2.html">Other page name here</A></TD></TR>
<TR class=h><TD class=i><A href="/blahblah.html">lah blah</A></TD><TD class=j><A href="/ribbit.html">Ribbit</A></TD></TR>