#! perl -slw
use strict;
use LWP::Simple;

$_ = get( 'http://the.site.com/path' );
if( m[(<table.*?</table>)]si ) {

     ($_ = $1) =~ s[(href|src)\s*=\s*"([^"]+)"] #"
            [$1="http://the.site.com$2"]sig;
     print;
     exit;
}