# title: opc
# author: German Fernandez Sanchez
# A simple although obfuscated program to print 'The Perl Journal', as 
# required in http://itknowledge.com/tpj/obfusc-4.html
if($/=';'){open(M,$0);$n=(localtime time)[5];open(N,">$n");}else{print 
reverse "\nJournal Perl The";exit;}$m=int($n/14);$a=<M>;($value=(<M>)[$m])=~
s/^\s*\((.{$m}).*/$1/s;@b=reverse split /\s+/,$a;$c=splice @b,1,1,$m;$d=
substr $c,int($m/2);substr($d,2)=substr($d,2,$m)='';$j=$b[3*$m+2];$d=~
s/(.)(.)(.)(.)(.)*/\U$4$3$1$2\E$2/;$e=ucfirst $b[2*$m--];$f=ucfirst reverse 
$b[2*$m--];$g=join substr($f,$m++,1),substr($f,$m,1),substr($f,1,1);
$i=reverse substr reverse($a),2*++$m*--$m+2,$m/2;$o=select N;print $g,' ',$d,
$e,$/,$value,substr($c,2*($m+$m/3),2),$i,$c;print chop $i;chop $j;@s=('.',
'\s');foreach (0..1) {push(@k,"s/$s[0]*\<$j\>$s[1]*//is");@s=reverse @s;}
$k[-1]=~s/\</\<\\\//;foreach (@k){print $/,$value,'~';print;}print ';
print ',$o,' $value',$/;close;do $n;
