$chars = 'dny|kh|rj|ee|\w';

$foo = 'khatos';
push(@a, $1) while ($foo=~/($chars)/g);
print join(' ', @a), "\n";

$foo = 'mukharjee';
push(@b, $1) while ($foo=~/($chars)/g);
print join(' ', @b) , "\n";