Select Code to Download

while (<F>)
{
...
    my( $dll_file, $exe_files, $do_it ) = split /\|/;
    my @exe_files = split /,/, $exe_files;
}