my %h;
{
    local $/; # sluurp
    local @ARGV = "c:/pm217.txt";
    @h{ /Character=(.*)/g } = /ASCII=(.*)/g
        for <>;
}