$japh="Just Another Perl Hacker,";print map{@_=map{map{"$_\b"}('a'..'z')}(0..500);$_[@_]=$_;@_}$japh=~/./g;