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