#!/usr/bin/perl -w
use strict;
           
$_="this super-code example shows clearly how encoded text is,
siince a normal perl-codeblock should never-ever-ever contain it's
method embedded within -its- decoder as is. right, you're wrong
because my obstuf exempleifies it. honest programs should a) envoke
and b-work prescripted though never through it.";

my@a=map{(/\.|,/)?0:length}(m;([-\w']+|(?:,|\.));g);
print chr hex sprintf('%x'x2,$$,shift@a)while($$=shift@a);