How can I use __DATA__ twice?

Question

How can I use __DATA__ twice?

#!/usr/local/bin/perl
use warnings;
use 5.012;

while (  ) {
    print;
}

while (  ) {
           


        

Answer 1

In all honesty, the easiest solution is to read DATA once and stash it in an array or variable.

my @data;
while(){
  push @data, $_;
}