Select Code to Download

my %h = do {
    local $/ = "--------------------";
    local @ARGV = "c:/pm217.txt";
    map { ( /Character=(.*)/, /ASCII=(.*)/ ) } <>
};

my %h;
{
...
    @h{ /Character=(.*)/g } = /ASCII=(.*)/g
        for <>;
}