Какое значение получит переменная $^R в результате работы программы'ab!abc!' =~ /(\w+)!(?(?{ $1 eq 'abc' })(\w+)|(?{ $1 ne 'ab' }))/

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

• # Что будет напечатано в результате выполнения программыmy $a='a'; $_='ab'; while ($a ne 'd' && /$a/o) { print $&; $a++; }
• # Что будет напечатано в результате выполнения программыuse re 'eval'; my $a=$b=1; while ($a < 4 && $b =~ /(?{ ++$a })$a/) { print $&; $b++; }
• # Что выйдет на печать в результате работы программы $_="123!abc!"; pos($_)=4; print /\G(\w+)!/g?
• # Какое значение получит переменная $_ в результате работы программы $_='aBc'; s/\U[a-z]/!/?
• # Что напечатается в результате работы программыour $a; 'abcABC' =~ /(?{ local $a=0 })(?:abc(?{ ++$a })|ABC(?{ $a+=10 }))(?!\w)(?{ print $a })/