> print unpack('u', ';0FEG($)R;W1H97(@:7,@=V%T8VAI;F<@>6]U'),"\n";

perl -e 'print unpack("u",q{;0FEG($)R;W1H97(@:7,@=V%T8VAI;F<@>6]U}),"\n";'

Later.

Mark.

-- 
print "\n",map{my$a="\n"if(length$_>6);' 'x(36-length($_)/2)."$_\n$a"} (
   Name  => 'Mark Fowler',        Title => 'Technology Developer'      ,
   Firm  => 'Profero Ltd',        Web   => 'http://www.profero.com/'   ,
   Email => '[EMAIL PROTECTED]',   Phone => '+44 (0) 20 7700 9960'      )





Reply via email to