Что будет напечатано в результате выполнения программыuse re 'eval'; my $a=$b=1; while ($a < 4 && $b =~ /(?{ ++$a })$a/o) { print $&; $b++; }

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

• # Будут ли возвраты в процессе работы оператора 'abc123' =~ /(?>[a123]+$|\w+$)/?
• # Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ /(?s:(.*))/?
• # Какое значение получит переменная $_ в результате работы программы $_="123!abc!"; pos($_)=4; s/\G(\w+)!/x/?
• # Адрес abc@intuit.ru зашифрован скриптом:$_=<<EOD; <script> a='\@'; e='abc'+a+'intuit.ru'; document.write('<a href=m'+'ailto:'+e+'><b>'+e+'</b></a>'); </script> EOD Какие операторы правильно печатают этот адрес?
• # Что напечатается в результате работы программыour $a; 'abcABC' =~ /(?{ local $a=0 })(?:abc(?{ ++$a })|ABC(?{ $a+=10 }))(?!\w)(?{ print $a })/