User:Nejd/Scripts/Latest

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 (<>);