@_=split//,'ZRTVOC3H4F5FA6T85FZW3ESN7K8VFHBBPIGPFTLRXCROQ6UWFW5ZSA6N4YWM0LI
GGF6V9NER9N9CZDD20WY7YUQE2QBDPCS3WIDKHDU4FS58VDLG3YUFGZCKFA8EBEEZRTGD9OW9T5
CO4VM9I2115HK4GI11XDFV25ANA8RO81WFOJB1F936PF6N6OSAAK2FZ1XRR1HJUIA1FHCG9ZXBR
7ZSLIZ3JQSEH47RIZTDPW1EAHXF9EOZQRNBDSAF1P5NJ2S3EWNQQFGAN56HL6C5MVIXVLW6U6';
$.=join'',reverse map{$_[$_*(ord('K')-ord('@'))]}1..(localtime(1271+2))[1];
do{$/=substr($.,($_*3),3);$/++for(-1*-1)..10**3;print$/;}for $|..($#_-282);
I am not sure what you mean by this. Code width in PM is configurable - see node 450961. Did you have something else in mind or were you unaware of the configurability?
Cheers - L~R
perlmonks.org content © perlmonks.org and Limbic~Region, TedPride
prlmnks.org © 2006 edmund von der burg (eccles & toad)
v 0.03