my $f = "   ";
my $l = length $f;
substr($f, $l, $l, " " x ($l<5 ? 5-$l : 0) . "12345");