while (1) {
   print "list of letters: ";
   defined( my $line = <> )
      or last;

   $line !~ /\s*quit|exit|q\s*$/i
      or last;

   # Do something with $line.
}