Help for this page
open(FH,"+<file.txt") || die($!); @fh = <FH>; ... seek(FH,0,0); print FH $fh; close(FH);