Select Code to Download

open(ENG,"<en_1000") or die $!;
my @eng_dat=<ENG>;
...
my $en="EN-1000-0003-3";
my @data= grep /$en/,@eng_dat;
print @data;