Select Code to Download

.....
my ($urltop) = 'http://www.somewhere.com/';
...
        $content =~ s/href="$match"/href="$urltodir\/$match"/gi;
    }
}

$content =~ s/href="^\/([^"]*)"/href="$urltop/$1"/gi;