#!/usr/bin/env perl
#
use Term::ANSIColor qw(:constants);

open $data, " < data.txt" or die $!;

while (<$data>) {
  $y = RED("Y"). RESET;
  s/Y/$y/g;
  print $_;
}
print "\n";