Then I highly recommend Term::Interact because it will keep prompting until you enter valid input

Computer Information
-----------------------
   Customer First Name: ()
   Customer First Name: (ha ha)
   Customer First Name: Bob
   Customer Last Name: )()(
   Customer Last Name: Ricky
   Customer Phone #: )))
   Customer Phone #: Caught a SIGINT at C:/perl/site/5.10.1/lib/Term/I
+nteract.pm line 1138
[download]