my $foo = $/;
undef $/;
my $bar = <>;
$/ = $foo;