use strict; use warnings; $_=; chomp; print; while () { chomp; s/^\s*$// or /^\D/ or print "\n"; print; } print "\n"; __DATA__ 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