Select Code to Download

my $f = "   ";
substr($f, length $f, length $f, "12345");

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