[Memphis.pm] perl discovery of the day

[Big Ed]

Hey man, you forgot your she-bang in the header of your .sig

>From: Carl Brock Sides <csides at autozone.com>
>#/usr/bin/perl
>#.: .|-| ::||-| .||-:: ::|||-| :|-. :||-:: .:-| |-| 0-| .-| |||
>#0 ||-:: ::|||-| |||-| |-| 0-| .-| |||-.: ::-:: :|||-| :|||
>#| .|||-| .||-.| :-| .||-| ||-| .-: .|-:: ::|||-| .||-| ::|
>open(Q,$0);while(<Q>){if(/^#(.*)$/){for(split('-',$1)){$q=0;$qq=0;
>for(split){s/\|/:.:/g;s/:/../g;$Q=$_?length:$_;$q+=$qq?$Q:$Q*20;
>$qq++;}print chr($q);}}}print"\n";
>__END__
>----------------------------------------------------------------------------
>To unsubscribe, please send email to majordomo at pm.org
>with 'unsubscribe memphis-pm-list' in the body of the message.
>----------------------------------------------------------------------------
>

_____________________________________________________________________________________
Get more from the Web.  FREE MSN Explorer download : http://explorer.msn.com

----------------------------------------------------------------------------
To unsubscribe, please send email to majordomo at pm.org
with 'unsubscribe memphis-pm-list' in the body of the message.
----------------------------------------------------------------------------