perl -MO=Deparse,-p -e 'print "\x{A}"'

##</code><code>##

print("\n");
-e syntax OK

##</code><code>##

use warnings;
use strict;

print ord "\x{A}" if "\x{000A}" eq "\n";

##</code><code>##

10