#!/usr/bin/perl -0777
use strict;use warnings;
$_=<DATA>;s/\s+//g;sub ject{$_?10-$_:$_}; # of my affections
sub let{join'',grep{y(a-z A-Z\0)          # rent out something you are renting
{n-za-m N-ZA-M\0}}split//,$_[0]};         # take the whozit with you
sub way{join' ',map{$_=substr             # Eat fresh(TM)
$_,0,-2;join'',reverse split              # /me waves his hand as he says
/\0/,$_}split / /,$_[0]};$_=terfuge($_);  # This is not the code you are looking for
sub vert{scalar reverse split//,$_[0]};   # To destroy completely; ruin
sub tle{$_[0]=~y/a-zA-Z/A-Za-z/;          # elusive; crafty or sly; devious
return $_[0]};$_=vert($_);                # return to sender, address unknown...
sub terfuge{$_=join'',reverse map         # A deceptive stratagem or device
{ject($_)}split//,$_[0];join'',           # spellcheck this line before submitting
map{chr($_)}unpack('A3'x                  # Lucy, we're home!
(length($_)/3),$_)}$_=let($_);            # I'd go to any lengths for you
sub lime{join' ',grep{s/\b(qu|[           # Inspiring awe; impressive.
^\W0-9_aeiou]+)?(\w+)/$1?"$2\0$           # and sometimes y
1ay":"$2\0ay"/xegi}split/ /,$_[0]}        # why?  because I love you
$_=way($_);sub str{join'',map{ject($_)    # .oO(Perlish)
}reverse split//,join'',map{sprintf       # you sprinted how far?
("%03d",ord($_))}split//,$_[0]}           # did you get winded?
$_=tle($_);print;                         # shows over now go home!

__DATA__
   83003070900032
  009920987023054
 0440930520820909
00009920987082014
09890003400992098
70230020089000520
  099       209