Here is my first ever attempt to write some purposely obfuscated perl.

#!/usr/bin/perl
use POSIX;$c=q/Just another perl hacker./;@d=unpack('C*',$c);for($j=1;
+$j<=$#d;$j++){for($i=$#d;$i>=$j;$i--){$d[$i]=($d[$i]-$d[$i-1])/($i-($
+i-$j));}}$v[$k]=$d[$m];$e[$l]=$d[$l];for($k=1;$k<=$#d;$k++){for($l=1;
+$l<=$#d;$l++){$p=1;for($m=1;$m<=$l;$m++){$p=($k-($m-1))*$p;}$e[$l]=$p
+*$d[$l]+$e[$l-1];}$v[$k]=ceil(sprintf("%.3f",($e[$l-1])));}print pack
+('C*',@v);
[download]