Re: Is there a way more easy?

This does the trick...

use 5.010;
use List::MapMulti;

my $letters = ['', 'a'..'z', 'A'..'Z', '_'];
mapm { say join q() => @_ } ($letters) x 6;
[download]

perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

Comment on Re: Is there a way more easy? Download Code

Replies are listed 'Best First'.
Re^2: Is there a way more easy? by spadacciniweb (Curate) on Jun 21, 2012 at 07:46 UTC
Good, I didn't known List::MapMulti (($_="Mzz ojjdloobnf jt uvy5502383")=~y~b-zg2-5c96-81~a-z0-9~s)=~s~~~s; print	[reply]