in reply to How do i read each line of the file into string?

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]

In Section Seekers of Perl Wisdom