#! /usr/bin/perl -ln
/\|\s*$/ or /.*?--(-?)|/, splice(@a,$+[0]/3), $1 ? print join "\t", @a[0..2], $' : push @a, $';