use warnings;
use strict;
use Data::Dumper;
$Data::Dumper::Useqq = 1;

print "Enter something: ";
my $char = <>;
print Dumper($char);