my $strlen = "00000000";
my $string = "TEXT";
substr($strlen, -length($string)) = "$string";