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