全部は入らないので関わってると思うところだけ抜きました。

use LWP::UserAgent;
use HTTP::Request::Common;

$url = "http://hidar.2ch.net/news4vip/subject.txt";
$durl = "http://hidari.2ch.net/news4vip/dat/";

&getData($url);

$threadlist = $response->content;

while($threadlist =~ m|\n(.*?)\.dat<>|g){
　　　　　　　　push(@dat, $1);
　　　　　　　　}

for ($i=0; $i<=$#dat; $i++){
　　　　　　　　$url = $durl . $dat[i] . ".dat";
　　　　　　　　&getData($url);
　　　　　　　　$content .= $response->content . "\n";
}

print $content;

sub getData
{
　　　　　　　　$ua = LWP::UserAgent->new;
　　　　　　　　$ua->agent('');
　　　　　　　　$request = GET($_[0]);
　　　　　　　　$response = $ua->request($request);
}