#!/usr/bin/perl

use warnings;
use strict;

# Kruemelmonster

my $kekse = "";
while ($kekse ne "KEKSE") {
    print 'ich will KEKSE: ';
    $kekse = <STDIN>;
    chomp($kekse);
}

print "Mmmm. KEKSE.\n";