My current email signature:

Someone asked me how to count to 10 in Perl:
push@A,$_ for reverse q.e...q.n.;for(@A){$_=unpack(q|c|,$_);@a=split//
+;
shift@a;shift@a if $a[$[]eq$[;$_=join q||,@a};print $_,$/for reverse @
+A
[download]

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.