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

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

• # Что будет напечатано в результате работы программы'abc123' =~ /((\w)+)/; print join ',', @-;
• # Какой текст будет захвачен, соответственно, в переменную $1 и $2 следующим оператором: 'abcd' =~ /(\w+)(\w+)/?
• # Какое значение получит массив @a в результате работы программы my @a="abc\n123" =~ /\w/g?
• # Какое значение получит переменная $_ в результате работы программы $_='abcABCdefDEF'; my $re=qr'[A-Z]+'; s/${re}\L[A-Z]+/!/?
• # Какое значение получит переменная $^R в результате работы программы'ab!abc!' =~ /(\w+)!(?(?{ $1 eq 'abc' })(\w+)|(?{ $1 ne 'ab' }))/