perl -e '#!/usr/bin/perl
use strict; use warnings;use P;
use Data::Dumper;

my $fmt="prod\t006\t2.13\tx86_64\trpm";
my @flds = split /\t/,$fmt;
printf "%s, %s", $flds[1],"<".join("|",@flds).">\n";
P "%s, %s", $flds[1],"<".join("|",@flds).">\n";
'
006, <prod|006|2.13|x86_64|rpm>
6, <prod|006|2.13|x86_64|rpm>