5 little blocks of code
Happy as can be.
Along came the IDE
and formatted them into three.

Along came the inter-preter
who didn't like this a bit.
So it went ahead
And put them all back.

On to Perl-Monks this little script went
Aspiring to be famous
For this rhyme that makes no sense!

g(f());sub a{"1722152". "132141301952082092142". "021992121301781992 +122". "061302021951972051992". "12144108";}sub b { length(scalar(shift));} sub c{98;}sub d {3;}sub e{return $_[0]+d(); +}sub f{my $h = b(a());my @i = ();my $j=0;while($j <$h){my $k=sprintf('%d' ,substr(a(),$j,d));push (@i,chr($k- c));$j= +e($j );}return@i;}sub g{abcd( join("",@_)) }sub abcd{ print @_ + ; }
I believe that the source code to life is written in Perl :-)