$ cat squidge.pl
#!/usr/bin/perl
use strict;
use warnings;
use File::Slurp;

my $INFName = shift or die "Missing file name";
my $t = read_file($INFName);

$t =~ tr/\n\r/  /;
$t =~ s/;/;\n/g;
$t =~ s/,/,\n/g;

open my $FH, '>', $INFName . ".out" or die;
print $FH $t, "\n";