разбор первой записи вызова find в perl?

Мне нужно получить пример файла файла из команды find в сценарии Perl для последующего создания другого системного вызова. По какой-то причине команда find застревает, когда я вызываю ее из сценария. Вот что мне нужно сделать:

my $search_dir = "/something/like/this/??/??/??";
# the triple '??' are needed here
my $cmd = "find $search_dir -name \"\*.$var1.token1.$var2.ext\" | head -n 1";
my $first_example_file = `$cmd`; chomp $first_example_file;

Команда застревает, когда я запускаю ее через Perl, она никогда не заканчивает выполнение команды, тогда как построенный $cmd выполняется мгновенно, если я копирую+вставляю его и запускаю в терминале bash. Есть идеи?