Or:

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

Or:

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