Actually, it is not necessary to use the /e modifier in the QandAEditors' substitution, because without /e the right-hand side of a substitution interpolates just like a double-quoted string.

$line =~ s/\$red(\d)/$red[$1]/g;
[download]