Select Code to Download

use strict;
use warnings;

...
substr($f, 20, 12345, "This is a new longer address\n");

print $f;

substr($f, length($f) + 10, 12345, "This is a new longer address\n");