Что выйдет на печать в результате работы программы $_="123!abc!"; pos($_)=4; print /\A(\w+)!/?

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

• # Какое значение получит переменная $a в результате работы программыmy $a=10; 'abc123' =~ /((\w)+)(?{ $a=$+ })/;
• # Какое значение получит переменная $a в результате работы программыmy $a=10; 'abc123' =~ /((\w)+)(?{ $a=$^N})/;
• # В тексте есть число, которое может быть целым, а может иметь точку (в этом случае обязательна дробная часть). Число может стоять в конце предложения, и поэтому за ним может быть точка. Предполагаем, что в тексте нет таких конструкций, как дата 2006.12.26, которую можно было бы спутать с дробным числом. Примеры чисел: +1, -2.5, -.010. Надо захватить в $1 первое такое число. Какие операторы делают это правильно?
• # Какое значение получит переменная $_ в результате работы программы $_="123"; s//!/g?
• # В $_ дан текст:$_=<<EOD; Первый адрес:<a href='mailto:abc\@def.com'>abc\@def.com</a>, второй адрес - <a href='mailto:ab.c\@def.com'>ab.c\@def.com</a> третий адрес - <a href = " mailto: a+b\@de-f.co.uk " >a-b\@def.ijk.co.uk</a> EOD Какие операторы извлекают все 3 адреса электронной почты из этого текста?