とりあえずhttp://www.machi.to/bbs/offlaw.cgi/地域/スレッドキー/で拾えるdatを変換するなにか

#!/usr/bin/perl
use strict;

my @dat='';

open my $fh,'<','before.dat';
@dat=<$fh>;
close($fh);

foreach(@dat){
$_=~s/^([0-9]{1,4}<>)?//ge;
}

open my $fh,'>','after.dat';
foreach(@dat){
print $fh $_;
}
close($fh);