open (FILE, "<my_file") || die "can't open my_file: $!";
my @stuff = <FILE>;   # get whole file into array
close(FILE);
chomp @stuff;         # cut out trailing newlines
my $string = join(', ', @stuff);  # join to one string
undef @stuff;         # clean up behind us
[download]

my $string;

# Open the file
open(FILE, "$file_name") or die "could not open $file_name : $!";

# Iterate over each line of the file
while (<FILE>) {

  # Take off trailing newline
  chomp;

  # Append line and comma to the string
  $string .= "$_,";
}

# Close the file
close(FILE);

# Chop off trailing comma
chop $string;
[download]

use IO::File;

my $fh = IO::File->new("<$filename")
    or die "Unable to open $filename: $!";

my $string =
    join(", ",
         map({ chomp; $_ }
             $fh->getlines)
         );

$fh->close;
[download]

undef $/;
$file = <>;
s/\s*\n/,/s;  #catches spaces as well.
print;
[download]

chomp; print; print ',' while ( <> );
[download]

Jeroen
"We are not alone"(FZ)