Please wrap code in <code> tags - as the author of a node, you can edit it. Please read Writeup Formatting Tips.

I would suggest you check to make sure that the codes you are getting correspond to what you expect, perhaps with some code similar to

use strict;
use warnings;
use Term::ReadKey;

ReadMode(4);
my %keys = GetControlChars;
my $int = $keys{INTERRUPT};
while ((my $input = ReadKey(0)) ne $int) {
    print ord($input), "\n";
}
print ord($input), "\n";
ReadMode(0);
[download]

I would also suggest you likely want to use equality (as I've done above, see perlop) instead of regular expressions (perlre). As well, see Term::ReadKey, which does not contain a Readmode method (Perl is case sensitive).