#!/usr/bin/perl
while(<>) {
#    s/none/\#808080/g;
    s/none/grey/g;
    s/None/grey/g;
    print;
}
