open(FH, "dikshunary") or die "Can't open dictionary: $!";
while (<FH>) {
 my ($a, $b, $k) = (0,0,0);
 for my $i (0..length) {
  $a=$a+1 if (split '', $_)[$i] eq "a";
  $b=$b+1 if (split '', $_)[$i] eq "b";
  $k=$k+1 if (split '', $_)[$i] eq "k";
 }
 next if $a > 3 or $b > 2 or $k > 2;
 print;
}
[download]