sub rpad { pack "A$_[1]", $_[0] };
my $string = 'averylongstringthatislongerthan10charsforsure!';

print "]", rpad($string, 10), "[\n";

__END__
]averylongs[