in reply to sprintf to zero-pad on the right
my $strlen = "00000000"; my $string = "TEXT"; substr($strlen, -length($string)) = "$string"; [download]
You can then print "$strlen\n";