Select Code to Download

sub _wafer_parse {
    my $self = shift;
...
    local *_;
    while ( <$FILE> ) { ... }
}

sub _wafer_parse {
    my $self = shift;
...

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