Какое значение примет переменная $n в результате работы программыmy $n; $_='abc ab abcd'; /(?<!\w)(\w+)(?{$n=$+ if !defined($n) || $n lt $+})(?!)/?

Правильный ответ:

• # Какое значение получит переменная $a в результате работы программыmy $a=10; 'abc123' =~ /((\w)+(?{ $a=$+ }))/;
• # Что будет напечатано в результате работы оператораprint join '-', split /\s+/, 'abc';
• # Нужно из текста в $_ захватить в массив @a все слова, состоящие только из латинских букв и содержащие единственную букву h, которая не стоит с краю, независимо от регистра. В каких вариантах это делается верно?
• # Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ /^(\w+)(?=\Z)/m?
• # Что выйдет на печать в результате работы программы $_="123!abc!"; my @a = /\G\w+(?{ print pos $_ })!/g?