#!/usr/bin/env perl

use strict;
use warnings;
use autodie;

{
    open my $fh, '<', 'pm_11118005_data';
    local $/ = "\n,,, \n";
    while (<$fh>) {
        chomp;
        print join(',', $., split(/,,, \n?/)), ",, \n";
    }
}