while($line = <IN>)
{
   chomp $line;  ## <---- !!!
   $text .= $line;
}