use Data::Dumper;
$Data::Dumper::Terse = 1;
$Data::Dumper::Useqq = 1;
print(Dumper($/));         # "\n"
$_ = "abc\x0D\x0A";
print(Dumper($_));         # "abc\r\n"
chomp;
print(Dumper($_));         # "abc\r"