#!/usr/bin/perl

END {
    print "\e[0m";
}

while (<>) {
    @c=qw(32 32;1 30;1);
    s/(\S)/"\e[".$c[rand @c]."m$1\e[0m"/eg;
    print;
}