$ cat t.pl
#!/usr/bin/perl
use strict; use warnings;
use Data::Dumper;

my $fmt="prod\t006\t2.13\tx86_64\trpm";
my @flds = split /\t/,$fmt;
print "<",join("|",@flds),">\n";

$ perl t.pl
<prod|006|2.13|x86_64|rpm>