Какое значение получит переменная $a в результате работы программыmy $a; 'abc' =~ /(\w+(\w))(?{ $a=$^N })/;

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

• # Что будет напечатано в результате работы программыmy $a='a'; my $re=qr/\$a/; print 'OK' if '$a' =~ /$re/;
• # Что будет напечатано в результате работы программы$_='abc123def'; /\d+/; print substr $_, 0, $-[0];
• # Какие операторы возвращают истину?
• # Что будет напечатано в результате работы оператораprint join '-', grep /\d/, qw/a 11 b 22 c/;
• # Какое телефонный номер будет захвачен в переменную $1 в следующем операторе поиска: '123-45-67 123-45 1234' =~ /(12[\d-]+|123[\d-]+|1[\d-]+)/ ?