Help for this page
4374564735|fegfg|sfffsg|QDFWFWwefwe ... |9345890345|84|3457|345|wdfdhiwdfh 324523|24562|248|2048|2323480|2923472 |3568245|34057|23|43057345734|2472
my $nl = ""; while(<FH>){chomp;s/^(?!\|)/$nl/;s/^(?!\D)/$nl/; print;} continue { $nl ||= "\n"; } print $nl;