my $answer='';

print "Hallo, Sag was du willst:\n";
print qq(mit "A" sag ich was nettes.\n);
print qq(mit "B" beschimpf ich dich.\n);
print "Eingabe:";

while($answer eq '')
{
  # auf Eingabe warten
  $answer=<STDIN>;

  # \n abschneiden
  chomp($answer);

  # alles wegschmeißen bis auf ein Zeichen
  $answer=substr(uc($answer." "),0,1);

  # Nur "A" oder "B" erlaubt
  if($answer ne 'A' && $answer ne 'B')
  {
    $answer='';
    print qq(Bitte "A" oder "B" eingeben:);
  }
}

# wenn A
if($answer eq 'A')
{
  print "Du bist ein netter Kerl\n";
}
# wenn B
else
{
  print "Ich mag dich nicht so sehr\n";
}

print "ENDE\n";