in reply to How do i read each line of the file into string?
open (FILE, "<my_file") || die "can't open my_file: $!";
my @stuff = <FILE>; # get whole file into array
chomp @stuff; # cut out trailing newlines
my $string = join(', ', @stuff); # join to one string
undef @stuff; # clean up behind us
www.com | www.net | www.org
Hope and Pray
Hash & Salt using Acme::XKCD::DebianRandom
Hash & Salt using other rng algorithms
Printouts secured with physical locks
One of a million Post-Its sticking on the monitor
A piece of paper taped to the backside of the keyboard
Results (59 votes). Check out past polls.