-- 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