Какое значение получит переменная $2 в результате работы программы 'aBc1b23' =~ /a(\w)\w+(\1)/?

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

• # Что будет напечатано в результате работы программы$_='abc123def'; /\d+/; print substr $_, 0, $-[0];
• # Что будет напечатано в результате выполнения программыmy $a='a'; $_='ab'; while ($a ne 'd' && /$a/o) { print $&; $a++; }
• # Что будет напечатано в результате работы оператораprint join '-', split 1+1, 'a1b2c';
• # В тексте есть телефонный номер. Примеры номеров: +7 495 9569214, (834-35)4-34-35, 3-45-56. Надо захватить в $1 этот номер. Какие операторы делают это правильно?
• # Какое значение получит переменная $_ в результате работы программы $_='abc123'; my $a='\d+'; s/$a/!/?