in reply to Perl Beginner

$char = <>;

Sets $char to a linefeed terminated string.