mirroredby.p6

#!/usr/bin/env perl6

my $file = open 'MIRRORED.BY';

my %data;
my $key;

for $file.lines {
    when /^ \s* '#'/ {
        next
    }
    when /^ \s* (\S+) \s* ':' \s* $/ {
        $key = $0;
    }
    when /^ \s* (\S+?) \s* '=' \s* \" (<-[\"]>*) \" \s* $/ {
        %data{$key}{$0} = "$1";
    }
    when /\S/ { die "fail:\n$_" }
}

%data.perl.say;