Small nit: the use of backreferences like \1 in the second clause of s/// is deprecated. E.g.:

% perl -we '$_="foo"; s/(.)/\1/'
\1 better written as $1 at -e line 1.
[download]