$margin = 10;
printf "'%${margin}s'\n", 'x';

__output__

'         x'

##</code><code>##

... (split( /\t/ ))[2,3];

##</code><code>##

... join '/', (split( /\t/ ))[2,3];

##</code><code>##

push @qqq,  join '/', (split( /\t/ ))[2,3];