$ cat -vet pm_11118005_data
Eli Stern,,, $
10-Nov-19,,, $
1 subscriber,,, $
,,, $
Abdessamed Ham,,, $
15-Nov-19,,, $
0 subscribers,,, $
,,, $
Arne Martinson,,, $
22-Nov-19,,, $
0 subscribers,,, $
,,, $
####
#!/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";
}
}
####
1,Eli Stern,10-Nov-19,1 subscriber,,
2,Abdessamed Ham,15-Nov-19,0 subscribers,,
3,Arne Martinson,22-Nov-19,0 subscribers,,