open (FILEHANDLE, "<file.txt") or die "Cannot open file.txt"; $text = ""; while (read (FILEHANDLE, $newtext, 1)){ $text .= $newtext; } print $text;