title: Perl chomp does not remove all the newlines
body: <p>I have code like:</p>
  
  <pre><code>#!/usr/bin/perl
  use strict;
  use warnings;
  open(IO,"&lt;source.html");
  my $variable = do {local $/; &lt;IO&gt;};
  chomp($variable);
  print $variable;
  </code></pre>
  
  <p>However when I print it, it still has newlines?</p>