title: Perl read from socket missing first character
body: <p>I am trying to read from an instrument connected over network using TCP protocol from Perl.
  The code I have used is below:</p>
  
  <pre><code>$socket = new IO::Socket::INET (
  PeerHost =&gt; '210.232.14.204',
  PeerPort =&gt; '23',
  Proto =&gt; 'tcp',
  ) or die "ERROR in Socket Creation";
  
  while(!($data=~m/"ABC"/))
  {
      $temp = &lt;$socket&gt;;
      $data = $data + $temp;
      print $temp;
  }
  </code></pre>
  
  <p>What happens is the first character of every line that is read over the TCP is not printed. Instead it is replace with a space. Why does this happen?</p>
  
  <p><strong>Example:</strong></p>
  
  <p>Expected output</p>
  
  <pre><code>Copyright (c) ACME Corporation 
  2009 - 2010
  </code></pre>
  
  <p>Actual Output</p>
  
  <pre><code> opyright (c) ACME Corporation 
   009 - 2010
  </code></pre>
  
  <p>Thanks...</p>