n> perl -E 'use P;
my $fmt="prod\t006\t2.13\tx86_64\trpm";P $fmt;
my $str=P $fmt;P "str=\"$str\""; 
my @flds=split /\t/,"$str";
foreach (@flds) {
Pe "%s \x83", "$_";

} P " ";
'
prod    006     2.13    x86_64  rpm
str="prod       006     2.13    x86_64  rpm"
prod 6 2.13 x86_64 rpm