LTSVのラベルをはずしてTSVに変換。cutとかで処理しやすいように。

ltsv2tsv.pl

#!/usr/bin/perl
my $line;
my $param;
my @params;
while($line=<STDIN>) {
  my @keys;
  my @vals;
  chomp($line);
  @params=split(/\t/,$line);
  foreach $param (@params) {
    my($key,$val)=split(/:/,$param,2);
    push @keys,$key;
    push @vals,$val;
  }
  print join("\t",@vals)."\n";
}

exit;