-- Leland Johnson <easyasy2k at gmail.com> > perl -ne'BEGIN { $a = 0 } $a++ if(not /^$/); print if(!/^$/ or $a)' > clunky, but works. local $/; ( $a = <ARGV> ) =~ s/^\s+//s -- Steven Lembark 85-09 90th Street Workhorse Computing Woodhaven, NY 11421 lembark at wrkhors.com 1 888 359 3508