#!/usr/bin/perl
use warnings;
use strict;

$/ = "\n1=";
while (<>) {
    my @fields = split /\n/;
    s/^[1-6]=// for @fields;
    print +(join ',', @fields[0 .. 5]), "\n";
}