# /usr/bin/perl
#-----------------------------------------------------------------------
# Description: turn single-line records back into multi-line records
#-----------------------------------------------------------------------

# Takes a tab delimited line and replaces the tabs with a tab/newline
# combo.  Reproduces the original structure slurped by trimslurp.pl

while (<>) {
        s/\t/\n\t/g;
        print $_;
}

#-----------------------------------------------------------------------