Select Code to Download

use strict;
my ($len, $str) = (5, "someword");
$str = sprintf "%-${len}.${len}s", $str;
print ">>$str<<\n";