$_ = sub { print chr shift };
74->$                      _;
65->$                      _;
80->$                      _;
72->$                      _;
44->$                      _;