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