in reply to adding characters via a regular expression
my $number = 1; ($number) = "000000000$number" =~ m[(.{9})$]; print $number; 000000001 [download]