:~$ perl
$\="\n";   
print __LINE__;
# line 120
print __LINE__;
__END__
2
120

##</code><code>##

seek DATA,0,0;
my @lines = <DATA>;
say Dumper \@lines;

##</code><code>##

use v5.12; 
use warnings;
use Data::Dumper;
say __LINE__;
say __LINE__;
say __LINE__;


seek DATA,0,0;
my @lines = <DATA>;
say Dumper \@lines;

__DATA__

##</code><code>##

4
5
6
$VAR1 = [
          'use v5.12; 
',
          'use warnings;
',
          'use Data::Dumper;
',
          'say __LINE__;
',
          'say __LINE__;
',
          'say __LINE__;
',
          '
',
          '
',
          'seek DATA,0,0;
',
          'my @lines = <DATA>;
',
          'say Dumper \\@lines;
',
          '
',
          '__DATA__
'
        ];