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