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