Help for this page
s/((\n) ([^0-9])+ (-)* (Aa-Zz)*) | ((\n) (\d{3}) (-)* (Aa-Zz)*)/$2$3/g +x; # 12 3 4 5 67 8 9 0
use strict; use warnings; ... 5-00 Last record
1-12 last non-blank field --- ... --- 5-00 Last record