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

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

• # Какие операторы возвращают истину?
• # Что будет напечатано в результате выполнения программыuse re 'eval'; my $a=$b=1; while ($a < 4 && $b =~ /(?{ ++$a })$a/o) { print $&; $b++; }
• # Что будет напечатано в результате выполнения программыmy $b='ab'; my $a='a'; while ($a ne 'd' && $b =~ /(?{ ++$a })$a/o) { print $&; }
• # Какое значение получит переменная $2 в результате работы программы 'aBc1b23' =~ /a(\w)\w+(\1)/?
• # Какое значение получит переменная $_ в результате работы программы $_='abcABCdefDEF'; my $re=qr'[A-Z]+'i; s/${re}defDEF/!/?