http://qs321.pair.com?node_id=123961

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

print "What is your name?\n"; $input=<STDIN>; $name=inputcutter($input); print "What is your age?n\"; $input=<STDIN>; $age=inputcutter($input); print "Your are $name and your age is @age years old.\n"; sub inputcutter{ $s=chomp $input; return ($s); }

Edit (davorg): added <code> tags.

2005-10-13 jdporter moved from Tutorials (!)