Select Code to Download

open my $fh, '<:encoding(UTF-8)', $filename or die "$filename: $!";
my @rows = map { /^([^|]+)\|([^|]+?)$/ or die $_; [$1,$2] }
    grep { /\S/ && !/^\s*#/ } <$fh>;
close $fh;