Select Code to Download

cat test

...
2;2;4; 4; 6; 7
3;1;2; 3;4;5
4;1;1;1;1; 1

perl -MData::Dumper -le 'my %hash;
while(<>) {
my ($field1,$field4)=(split /\s*;\s*/)[0,3];
...
                   '3'
                 ]
        };