in reply to substr and strings on the outside
Regex search and replace:
my $f = " "; $f =~ s/^(.{0,5}).{0,5}/${1}12345/;
The only problem is this regex doesn't pad extra spaces if your string is too short, but at least it still does the replacement.
elbieelbieelbie
In Section
Seekers of Perl Wisdom