http://qs321.pair.com?node_id=50525

Slurp a file into a scalar. Jean-Daniel Gamache webmaster@perls.org
open (IN, "<myfile.txt"); {local $/; $file_content = <IN>;} print $file_content;