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  

##</code><code>##

perl -E 'use P;
my $fmt=["%s\t%s\t%s\t%s\trpm","prod", "006", "2.13", "x86_64", "rpm"];
P "%s", $fmt;  # already converted 
'
["%s    %s      %s      %s      rpm","prod",6,2.13,"x86_64","rpm"]

##</code><code>##

> perl -E 'use P;
my $fmt=[qw(%s\t%s\t%s\t%s\t%s prod 006 2.13 x86_64 rpm)];
P "%s", $fmt;  # already converted before fmt
my $str=P @$fmt;
P "str=\"$str\"";
my @flds=split "\t","$str";
Pe "(%s) \x83", "$_" foreach @flds;
P " ";'
["%s\t%s\t%s\t%s\t%s","prod",6,2.13,"x86_64","rpm"]
str="prod\t6\t2.13\tx86_64\trpm"
(prod\t6\t2.13\tx86_64\trpm)

##</code><code>##

> perl -E 'use P;
my $fmt=["%s\t%s\t%s\t%s\t%s", qw( prod "006" "2.13" x86_64 rpm)];
P "%s", $fmt;  # already converted before fmt
my $str=P @$fmt;
P "str=\"$str\"";
my @flds=split "\t","$str";
Pe "(%s) \x83", "$_" foreach @flds;
P " ";'
["%s    %s      %s      %s      %s","prod",""006"",""2.13"","x86_64","rpm"]
str="prod       "006"   "2.13"  x86_64  rpm"
(prod) ("006") ("2.13") (x86_64) (rpm)

##</code><code>##

Recycling 1 duplicates...(cannot stat, already deleted?) path=/Share/suse/distribution/12.1/repo/oss/suse/test2/smugbatch-"006"-"2.1.3".x86_64.rpm, dev=(undef)