substr $_, $offset, 0, $added_text;
# or
substr( $_, $offset, 0) = <<EOT;
Some text
to add.
EOT
##</code><code>##

s/$pattern/$new_text/sg;