Reversing the initial input makes the regex easier. The resulting array needs reversing and every item in the array needs reversing.

my $data = reverse <DATA>;

my @answers = map {scalar reverse $_}
    reverse $data =~ /(.*?\s*?=\s.*?\w+)/g;

print "$_\n" foreach (@answers);
[download]