for ($i = 1; $i < 9; $i++) {
     $_ =~ s/\$red$i/\$red$i/sg;                                           
     }