gistfile1.txt

use Term::ANSIColor qw(:constants);
use 5.010;

while (<STDIN>) {
  my @words = split(' ');

  foreach (@words) {
    s/^chr/kr/;
    s/c/k/g;
    s/ti/sj/;
    s/ity$/itet/;
    s/ol$/oll/;
    s/ism$/isme/;
    s/onal$/onell/;
  }

  my $line = join ' ', @words;

  say YELLOW, $line, RESET;
}