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

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