http://www.perlmonks.org?node_id=164964

I have been playing a little with substr recently:

sub _{map{substr"Just anoherPlck\n",hex(pop),pop }@_}print+_+split//,'1f292d1518141c291b14381380'