$bar = "this\nthat\n";
open(FH, '<', \$bar);
$this = <FH>; # reads "this\n"
$that = <FH>; # reads "that\n"
open(FH, '>', \$bar);
print FH "this\n";
print FH "that\n";