Select Code to Download

use warnings;
use strict;
...
    $text =~ s/COLOR/$color/g;
    print $text;
}

The color is green
The color is blue
The color is red
The color is puce