A quick run thru, if I get this correctly :)
You basically stuff the alphabet in @_, join it in $_, stuff a bunch of numbers in @_ again, loop thru those values, abusing $. (input line operator) while doing so, and printing a substr of 1 from the alphabet, position depending on those numbers you have in @_. What about :
$.=join('',a..z); print substr($.,$_,1) for(9,0,15,7);
#or.. uhm err
print substr(join('',a..z),$_,1) for(9,0,15,7);
|
which basically does the same
Greetz
Beatnik
...Perl is like sex: if you're doing it wrong, there's no fun to it.