c:\@Work\Perl\monks>perl -wMstrict -e
"use Data::Dump qw(dd);
 ;;
 $/ = qq{\n};
 ;;
 my $input = qq{OVERWRITTEN=key\r\n};
 ;;
 chomp $input;
 my ($value, $key) = split /=/, $input;
 dd $key;
 ;;
 my %hash = ($key, $value);
 print qq{The $key if not long enough is $hash{$key}};
"
"key\r"
 if not long enough is OVERWRITTEN