$/ = "";
$" = ", ";
while (<FH>) {
  my @args = split /\n/, $_;
  print "args: @args\n";
}