Help for this page
15 20 25
use Fcntl qw(:seek); ... seek($fh, 3, SEEK_SET); print $fh '94'; close($fh);
$foo = "ab cd ef"; substr($foo, 3, 2) = "cat"; say $foo;