$_ = "A = 1
A = 2
A = 3

B = 5
B = 1
B = 7
";


1 while s/((\w+) = .+)
\2 = (.+)/$1, $3/;