Another solution of your problem:

while (<DATA>){
  chomp;              # removes trailing newline
  next if /^\s*$/;    # skips blank lines
  @x=map {quotrim($_)} split /;/;
  push @line, \@x;    # gets individual records
}
 
print join ",\n", map { "( ${\(join ',', @$_)} )" } @line;
print ";\n";
[download]