[Perl]Script in loop

[Aki]

errore risolto
così:

...
if($c=~/[iI]/){print "Ciao";}
  if($c=~/[rR]/){print "Pippo";}
  if($c=~/[uU]/){exit(0);}
}