* Jose Alves De Castro <[EMAIL PROTECTED]> [2004-04-26 18:36]:
> #!/usr/bin/perl -l0n
> /:/;$_{$'.$&}.=" $`,"}{map{s/,$/
> /;print}%_
Trivial improvement, for a gain of 5 chars:
#!/usr/bin/perl -l0p
/:/;$_{$'.$&}.=" $`,"}for(%_){s/,$/
/;
I've tried other clever things, but they all come out longer.
--
Regards,
Aristotle
"If you can't laugh at yourself, you don't take life seriously enough."
