#!/usr/bin/env perl


use Term::ANSIColor;


$strng = "ZihtqTL5R6Ha";


foreach my $char (<STDIN>){

if ($char == substr($strng, 0, 1)) {
    print colored(['bold red'], "$char");
} elsif (index($char, substr($strng, 1,)) != -1) {
    print colored(['green'], "$char");
    } else {print $char;}

}