5 next if /^From / .. /^$/;
6 next if /^Path: / .. /^$/;
16 $n = pack('S',$#word);
19 $lookup{$a . $p} .= $n;
24 $n = $lookup{$a . $p};
25 ($foo,$n) = each(lookup) if $n eq '';
26 $n = substr($n,int(rand(length($n))) & 0177776,2);
29 ($w) = unpack('S',$n);
31 $col += length($w) + 1;