perl -M"0;eval{require 6},@}=(40,35,0,32)" -e "print map{chr(ord($_)-shift@})}(split'',$@)[12,19,0,23]"

# linux quoting:
 
perl -M'0;eval{require 6},@}=(40,35,0,32)' -e 'print map{chr(ord($_)-shift@})}(split"",$@)[12,19,0,23]'