while ($line=<inputfile>){chomp $line; $string=$string.$line;}