Что будет напечатано в результате выполнения программыuse re 'eval'; my $a=$b=1; while ($a < 4 && $b =~ /(?{ ++$a })$a/) { print $&; $b++; }

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

• # Что будет напечатано в результате работы программыmy $a='a'; my $re=qr/$a/; print 'OK' if 'a' =~ m'$re'; ?:
• # Что будет напечатано в результате работы оператораprint join '-', grep /^\d{2,}/, qw/a 1 b 22 c/;
• # Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ /(?m)(\S*)$/?
• # Имеются следующие адреса электронной почты: a-b.c@def.com, a+b@def.co.uk, a$b@def.ijk.co.uk. Какие регулярные выражения соответствуют всем этим адресам?
• # Дан текст:$_=<<EOD; <a href='javascript:void(window.open("http://intuit.ru/book.html","","width=480,height=320"))'>Book</a><br> <a href="http://intuit.ru/index.html">index</a> EOD Какие операторы правильно печатают обе ссылки?