Какое значение получит переменная $a в результате работы программыmy $a=10; 'abc123' =~ /((\w)+)(?{ $a=$^N})/;

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

• # Что будет напечатано в результате работы программыmy $a='a'; my $re=qr/$a/i; $a='A'; print 'OK' if 'a' =~ $re;
• # Какое значение получит переменная $a в результате работы программыmy $a=10; 'abc123' =~ /((\w)+)(?{ $a=$+ })/;
• # Какое значение получит переменная $1 в результате работы программыmy $a=''; my $re=qr/(\d)+/; '123' =~ $re; '456' =~ /$a/;
• # Что будет напечатано в результате выполнения программыuse re 'eval'; my $a=$b=1; while ($a < 4 && $b =~ /(?{ ++$a })$a/o) { print $&; $b++; }
• # Какое значение получит переменная $_ в результате работы программы $_="123"; s/(?<=\d)/!/g?