my $data = reverse <DATA>;

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

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