Что будет напечатано в результате работы программыmy $re=qr'(\w+)c'; print $1 if '(\w+)c' =~ /$re/;

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

• # Какие регулярные выражения соответствуют всей строке 'abc123'?
• # Что будет напечатано в результате выполнения программыmy $b='ab'; my $a='a'; while ($a ne 'd' && $b =~ /(?{ ++$a })$a/o) { print $&; }
• # Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ /(\w$)/m?
• # Какое значение получит переменная $_ в результате работы программы $_='aBc'; s/\u[a-z]/!/?
• # Какое значение получит переменная $_ в результате работы программы $_='aBc'; my $a='[a-z]+'; s/\L$a/!/g?