Что будет напечатано в результате работы программыmy $a='a'; my $re=qr/$a/; $a='A'; print 'OK' if 'A' =~ /$re/i;

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

• # Что будет напечатано в результате работы программы$_='abc123def'; /\d+/; print substr $_, $-[0], $+[0] - $-[0];
• # Что будет напечатано в результате выполнения программыuse re 'eval'; my $a=$b=1; while ($a < 4 && $b =~ /(?{ ++$a })$a/) { print $&; $b++; }
• # Будут ли возвраты в процессе работы оператора 'abc123' =~ /(?>[a123]+$|\w+$)/?
• # Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ /^(\w+)(?=\Z)/m?
• # Какое значение получит переменная $_ в результате работы программы $_='aBc'; s/\u[a-z]/!/?