gistfile1.txt

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

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

  foreach my $word (@words) {
    s/c/k/;
    s/ti/sj/;
    s/ity$/itet/;
    s/ol$/oll/;
  }

  my $line = join ' ', @words;

  say YELLOW, $line, RESET;
}