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