$new_file = shift(@ARGV);
$old_color =shift(@ARGV);
$new_color = shift(@ARGV);
$old_file = $new_file.".original";

if( ! -f $old_file ) {
    if( -f $new_file ) {
	system( "cp ".$new_file." ".$old_file );
    } else {
	print "Error! \"".$new_file."\" doesn't exist.\n";
	exit 2;
    }
}

open( IN, "<".$old_file );
open( OUT, ">".$new_file );

while( $L = <IN> ) {
    chomp( $L );
    @D = split( / /, $L );

    if( $D[0] eq "color" && $D[1] eq $old_color ) {
	print OUT $D[0]." ".$new_color."\n";
    } else {
	print OUT $L."\n";
    }
}

close( IN );
close( OUT );