4374564735|fegfg|sfffsg|QDFWFWwefwe 

cty|Sd|45|445|35
7345634785|24756|4864586|2356
845245|2347624|264|2376274|2846242
|sfh|Sgfdg|EFgefg|434590|563456
|9345890345|84|3457|345|wdfdhiwdfh
324523|24562|248|2048|2323480|2923472
|3568245|34057|23|43057345734|2472

##</code><code>##

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