Awesome, thanks for the IRC channel - I didn't know. And thanks, too, for the SQL::Abstract reference - I always forget to look there ;)
---------
perl -le '$.=[qw(104 97 124 124 116 97)];*p=sub{[@{$_[0]},(45)x 2]};*d=sub{[(45)x 2,@{$_[0]}]};print map{chr}@{p(d($.))}'