look at $/ ( $INPUT_RECORD_SEPARATOR )

perl -MData::Dumper -e '
$key = "test text\r\n"; 
local $/ = "\r\n";
chomp $key; 
print Dumper $key;
[download]