my $data;
{
   local $/;     #sets input list separator to undef
                 #so we can 'slurp' the file in
   $data = <TEXTFILE>;
}
close TEXTFILE;