my @chars = split //, $string;
my $h = ();
$h{$_}++ foreach @chars;
print "True" if $h{k} >= 2 || $h{r} == 2 && $h{w} == 2 || $h{k} == 1 && $h{r} == 1 && $h{w} == 2;