title: How can I use __DATA__ twice?
body: <p>How can I use <code>__DATA__</code> twice?</p>
  
  <pre><code>#!/usr/local/bin/perl
  use warnings;
  use 5.012;
  
  while ( &lt;DATA&gt; ) {
      print;
  }
  
  while ( &lt;DATA&gt; ) {
      chomp if $. == 1;
      print scalar reverse;
      print "\n" if eof;
  }
  </code></pre>
  
  
  
  <pre><code>__DATA__
  one
  two
  three
  four
  five
  six
  </code></pre>