my $f = " "; $f =~ s/^(.{0,5}).{0,5}/${1}12345/;