This is the current revision of this page, as edited by Nejd (talk | contribs) at 16:51, 14 December 2014 (I wanted to store my latest, compactest version of 'readtemplate.pl'). The present address (URL) is a permanent link to this version.
Below is my latest, most compactest version of
readtemplate.pl
push(@WL,[(split(/\D+/,<>))[1..30]]) until eof && $.;
$tm = 0;
(s/\d+([-–])\d+/%s$1%s/g)==15?printf($_,@{$WL[$tm++]}):print($_) while (<>);