#!/usr/bin/perl
use utf8;
use charnames ':full';

while ($line=<>){
        @array = split(/ /, $line);
        foreach $x (@array){
                if ($x=~ /\x{006b}/){ #code for lower case 'k'
                        print "$x\n";
                }
        }
}