松本です。
いろんなご意見を取り入れて、いちおう最終版です。
ns# cat icbm.pwd
#!/bin/sh
perl -e 'srand(time|$$);@a = (a..z,A..Z); map{print $a[int rand 52];\
print pack "c7",map{33+int rand 93}(1..7);print "\n"}(1..100)'|\
grep -v [0-9]\ | grep "[0-9]" |\
perl -e 'while(<>){$a=$_;tr///sc;print $a if length $_>6}'