use CGI;
print 'Your input: ';
my $var = <STDIN>;
chomp $var;
print "\$var is '$var'";
# Output:
'var is 'foo

##</code><code>##

$var =~s/\s+$//;
# Output (as expected):
$var is 'foo'