my $eingabe;
do{
  $eingabe = <STDIN>;
  chomp $eingabe;
}while($eingabe ne 'gewünschtesWort');