Select Code to Download

@t_arr = grep {
    $var3 = (split /[_.]/)[2];
...
} grep {
    !-d and $_ !~ /^\./ 
} readdir(EVT_DIR);