Select Code to Download

:~$ perl
$\="\n";   
...
__END__
2
120

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

use v5.12; 
use warnings;
...
say Dumper \@lines;

__DATA__

4
5
...
'
        ];