Select Code to Download

@search = ("red", "orange", "blue");
@replace = ("yellow", "black", "green"); 
...
print $text,"\n"
__END__
my pig is yellow, my black is orange and the sky is green