my $nl = "";
while(<FH>){chomp;s/^(?!\|)/$nl/;s/^(?!\D)/$nl/; print;} 
continue { $nl ||= "\n"; }
print $nl;