#!/usr/bin/perl
use Term::ANSIColor;

while(<STDIN>){
        for $i (1..15){
		next unless(defined($ARGV[$i-1]));
                s/($ARGV[$i-1])/&colored($1,"ansi15 on_ansi$i")/gexi;
        }
        print;
}