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__
'
        ];