in reply to printing special characters taken in command line

perl -MO=Deparse -le'print q(D^JkAPE\(SjKHnNl0)' > test.pl && perl test.pl