Select Code to Download

... map { chomp; [split'=']; } <$fh>;

%{$self->{info}} = map { EXPR } map { chomp; [split'=']; } <$fh>;

    defined $_->[1] ? @$_ : ()

    $_->[1] //= q{undef}; @$_