Help for this page
print qq(Please enter a character: ); $/ = ???; my $ans = <STDIN>; undef $/; print qq(\nYour character is '$ans'\n);
Please enter a character: x Your character is 'x'