[Perl]Script in loop

[Aki]

ciao raga
ho 'sto codice:

#!/usr/bin/perl

while(1)
{
  print "Scegli cosa fare:";
  print "\nInserisci\t\ti";
  print "\nRicerca\t\tr";
  print "\nAnnulla\t\tu\n";
  print "La scelta è: ";
  $c=<STDIN>;
  if($c=~/[nI]/){print "Ciao";}
  if($c=~/[nR]/){print "Pippo";}
  if($c=~/[nU]/){exit(0);}
}

credo sia piuttosto chiaro, però mi và in loop alla riga

$c=<STDIN>;

cioè eseguo il programma da prompt e se premo una qualsiasi delle 3 lettere, riparte a chiedere la scelta
che può essere?
cosa sbaglio?