JAPH's another Perl hacking


P is for Practical
	PerlMonks

JAPH's another Perl hacking

by zhutingting (Initiate)

on Feb 16, 2012 at 01:48 UTC ( [id://954119]=obfuscated: print w/replies, xml )

Need Help??

New monk here and my first node.

 
#!/usr/bin/perl

print$_?chr(length()+96):' 'for<<''=~/(?<=D).*?(?=D)/g;
ODOOOOOOOOOODOOOOOOOOOOOOOOOOOOOOODOOOOOOOOOOOOOOOOOOOO
OODOOOOOOOOOOOOOOOOOOODOOOOOOOOOOOOOOOOOOOODDOOOOOOOOOO
OOOOOOOOODODO0OOOOOO000OOODOO000000OOOO0OODOO0OOOOOOOOO
ODOOOOOOOOOOO0OOOOO0OOD0OOOOO0OOOOO0OOO0OOOOO0OOOOOOOOO
OODOOOOOOOODO0OOOO0OOOOO0OOOO0OOOOO0OOO0OOOOO0OOOOOOOOO
OOOOOOOOOOOOO0OOOO0000000OOOO000000OOOO0000000ODOOOOODO
OOODOOOOOOOOO0OOOO0OOODO0OOOO0OOOOOOOOO0OOOOO0OOOOOOOOO
OOOOOOO0OOOOO0OOOO0OOOOO0OOOO0OOOOOOOOO0OOOOO0OOOODDOOO
OOOOOOOO00000OOOOO0OODOO0OOOO0OOOOOOOOD0OOOOO0OOOOOOOOO
OOOOOOOOOOOODOOOOODOOOOOOOOOOOOOOOOOODOOOOOOOOOOOODDOOO
ODOOOOOOOODODOOODOOOOOOOOOOODOOOOODOOOOOOOOOOOOOOOOOODO
[download]

Use Ctrl-F to find another JAPH ;-)