sub {
    my %hash;
    my $reversed_data = reverse $data;
    $hash{ reverse $2 } = reverse $1
        while $reversed_data =~ /\s*([^=]+?)\s*=\s*(\w+)/g;
}

sub {
    my %hash;
    my $data = $data;
    $hash{ $1 } = $2
        while $data =~ s/\s*(\w+)\s*=\s*([^=]+)$//g;
}