Select Code to Download

#! perl -slw
use strict;

...
open DF, '<:raw', $file or die "$file : $!";
my @test = split /(?<=\n)/, do{ local $/ = \ -s( $file ); <DF> };
close DF;