perl -e '@a=split("\\154",("Btrdhalgp("|"HqqpD!bkdh"));@b=split("\\165",("!P"|"t"));@c=split("\\164",("hpH!##"|"dd AAj"));@a=(("\%\""|"dp"),"@a","@b","@c",",\n");$"=shift@a;print("@a");'