use strict;
my @red;
$red[1]='black';
$red[2]='red';
$line =~ s/\$red(\d)/$red[$1]/ge;