Select Code to Download

open my $inotify, '-|',
    do { no warnings 'qw';
...
    my ($path, $event, $file) = split;
    $thread_queue->enqueue("$path$file") if $event =~ /$expected/;
}