$ perl -le '
  $left  = sprintf( ">>%-10s<<", "left"  );
  $right = sprintf( ">>%10s<<",  "right" );
  print "$left\n";
  print "$right\n";
'
__output__
>>left      <<

>>     right<<