sub _wafer_parse {
    my $self = shift;
    
    open my $FILE, "<", $self->{file};

    local *_;
    while ( <$FILE> ) { ... }
}

##</code><code>##

sub _wafer_parse {
    my $self = shift;
    
    open my $FILE, "<", $self->{file};

    while ( my $line = <$FILE> ) { ... }
}