I can't tell what you mean by 'pp' and 'decompilable', but I think that you were thinking of something like this to avoid printing the arrow keys:

#!/usr/bin/perl -l

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

while (1) {
    print "Enter something:";

    ReadMode(4);
    my $x = <STDIN>;
    print "Entering...";
    sleep 3;

    ReadMode(0);
    print "You entered: $x";
    last;
}
[download]