#!/usr/bin/perl -w # how to (ab)use substr use strict; my \$pi='3.14159210535152623346475240375062163750446240333543375062'; substr (\$^X,0)= substr (\$pi,-6);map{ substr (\$^X,\$.++,1)=chr( substr(\$pi,21,2)+ substr(\$pi,\$_,2))}(12,28,-18,-6,-10,14);map{\$^O=\$"x( substr (\$pi,-5,2)); substr (\$^O,sin(++\$a/8)*32+ substr (\$pi,-2)/2+1,1)=\$_; substr (\$^O,sin(\$a/4)*( substr (\$pi,2,2))+ substr (\$pi,-7,-5)-1,1)=\$_;print"\$^O\$/";eval(\$^X.('\$b,'x3). substr (\$pi,-3,1).'.'. substr (\$pi,9,2));}(map{chr(\$_+ substr (\$pi,21,2))}( substr (\$pi,8)x3)=~/../g); ##```## substr(\$^X,0)=substr(\$pi,-6); map{ substr(\$^X,\$.++,1)=chr( substr(\$pi,21,2)+ substr(\$pi,\$_,2)) }(12,28,-18,-6,-10,14); map{ \$^O=\$"x(substr (\$pi,-5,2)); substr(\$^O,sin(++\$a/8)*32+ substr(\$pi,-2)/2+1,1)=\$_; substr(\$^O,sin(\$a/4)*( substr(\$pi,2,2))+ substr(\$pi,-7,-5)-1,1)=\$_; print"\$^O\$/"; eval(\$^X.('\$b,'x3). substr(\$pi,-3,1).'.'. substr(\$pi,9,2)); }(map{ chr(\$_+ substr(\$pi,21,2)) }(substr(\$pi,8)x3)=~/../g); ##``````## substr(\$^X,0)=substr(\$pi,-6); foreach (12,28,-18,-6,-10,14) { substr(\$^X,\$.++,1)=chr( substr(\$pi,21,2)+ substr(\$pi,\$_,2)); } # We need this for the moment to get # rid of the second map below. # Don't worry, it goes away. my @tempa; foreach (substr(\$pi,8)x3)=~/../g) { push(@tempa,chr(\$_+substr(\$pi,21,2))); } map{ \$^O=\$"x(substr (\$pi,-5,2)); substr(\$^O,sin(++\$a/8)*32+ substr(\$pi,-2)/2+1,1)=\$_; substr(\$^O,sin(\$a/4)*( substr(\$pi,2,2))+ substr(\$pi,-7,-5)-1,1)=\$_; print"\$^O\$/"; eval(\$^X.('\$b,'x3). substr(\$pi,-3,1).'.'. substr(\$pi,9,2)); }(@tempa); ##``````## substr(\$^X,0)=375062; foreach (12,28,-18,-6,-10,14) { substr(\$^X,\$.++,1)=chr( 64+ substr(\$pi,\$_,2)); } # We need this for the moment to get # rid of the second map below. # Don't worry, it goes away. my @tempa; foreach (substr(\$pi,8)x3)=~/../g) { push(@tempa,chr(\$_+64)); } map{ \$^O=\$"x(75); substr(\$^O,sin(++\$a/8)*32+ 62/2+1,1)=\$_; substr(\$^O,sin(\$a/4)*( 14)+ 33-1,1)=\$_; print"\$^O\$/"; eval(\$^X.('\$b,'x3). 0.'.'. 05); }(@tempa); ##``````## \$^X="select"; # We need this for the moment to get # rid of the second map below. # Don't worry, it goes away. my @tempa; foreach (substr(\$pi,8)x3)=~/../g) { push(@tempa,chr(\$_+64)); } map{ \$^O=\$"x75; substr(\$^O,sin(++\$a/8)*32+32,1)=\$_; substr(\$^O,sin(\$a/4)*14+32,1)=\$_; print"\$^O\$/"; eval(\$^X.('\$b,'x3).'0.05'); }(@tempa); ##``````## \$^X="select"; foreach (substr(\$pi,8)x3)=~/../g) { \$_ = chr(\$_+64); \$^O=\$"x75; substr(\$^O,sin(++\$a/8)*32+32,1)=\$_; substr(\$^O,sin(\$a/4)*14+32,1)=\$_; print"\$^O\$/"; eval(\$^X.('\$b,'x3).'0.05'); } ##``````## foreach (substr(\$pi,8)x3)=~/../g) { \$_ = chr(\$_+64); \$^O=\$"x75; substr(\$^O,sin(++\$a/8)*32+32,1)=\$_; substr(\$^O,sin(\$a/4)*14+32,1)=\$_; print"\$^O\$/"; select \$b,\$b,\$b,0.05; } ##``````## foreach (("Just~another~Perl~hacker~"x3)=~/./g) { \$^O=\$"x75; substr(\$^O,sin(++\$a/8)*32+32,1)=\$_; substr(\$^O,sin(\$a/4)*14+32,1)=\$_; print"\$^O\$/"; select \$b,\$b,\$b,0.05; } ```