while (<DATA>)
{
    print; # $_ is "line 0001\n"

    open(my $FH, "<", "file") or die($!);
    while (<$FH>) { ... }

    # $_ was clobbered by: while (<$FH>)
}

__DATA__
line 0001