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