while (<MYFILE>)
{
 $alldata .= $_ ;
}