...or a loop :

my $str = 'barp';
$str = ">".$str until (length$str >=10); ## in case it is already more
+ than 10...
print $str . "\n";
[download]

Obviously the loop could check for anything, the length of the pad, the number of a particular character, the time...

Updated code and added last bit