open($fh1, '>', \ substr($s1, length($s1)) )
       or die "Can't restore fh1";

##</code><code>##

     open($fh1, '>>', \$s1)
       or die "Can't restore fh1";