Select Code to Download

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

'         x'

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

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

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