#!/usr/bin/perl
use Term::ANSIColor;
$VERSION = '1.1';
@C = ('black on_yellow','black on_green','black on_cyan','black on_red', 'red on_white', 'black on_magenta', 'white on_red', 'white on_blue', 'blue on_white', 'yellow on_cyan' );
while(<STDIN>){
        for $i (0..$#C){
                s/($ARGV[$i])/&colored($1,$C[$i])/gexi if($ARGV[$i]);
        }
        print;
}