in reply to printing special characters taken in command line

perl test.pl D^JkAPE\(SjKHnNl0

[download]
passes 
D^JkAPE(SjKHnNl0

[download]
to Perl. To pass 
D^JkAPE\(SjKHnNl0

[download]
you need 
perl test.pl 'D^JkAPE\(SjKHnNl0'

[download]
Then, you can just use 
print("$ARGV[0]\n");

[download]

In Section Seekers of Perl Wisdom