perl test.pl D^JkAPE\(SjKHnNl0 ##

##

D^JkAPE(SjKHnNl0

##

##

D^JkAPE\(SjKHnNl0

##

##

perl test.pl 'D^JkAPE\(SjKHnNl0'

##

##

print("$ARGV[0]\n");