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 ;-)