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

##</code><code>##

Please enter a character: x
Your character is 'x'