>>859
いろいろと制約事項(subject.txtの内容が破損してないなど)はありますが

# subback.html
$tmpl = qq[<a href="%s/l50">%d: %s</a>\n];
$cnt = 0;
for (@subjectTxt) {
　　printf($tmpl, substr($_, 0, 10), ++$cnt, substr($_, 15));
}

でよいかと