my $teil = "12khrjn45";
print "\$teil enthaelt ein 'k'\n" if ($teil =~ m/k/);