Какое значение получит переменная $1 в результате работы программыmy $re=qr/(\d)+/; '123' =~ $re; '456' =~ //;

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

• # Что будет напечатано в результате работы программыmy $a='a'; my $re=qr/\$a/; print 'OK' if '$a' =~ /$re/;
• # Какое значение получит переменная $1 в результате работы программы$_='abc123def'; /(\w+)/; /(?>\d+)(\d*)/;
• # Что будет напечатано в результате работы оператораprint join '-', grep /^\d{2,}/, qw/a 1 b 22 c/;
• # Какой фрагмент строки будет захвачен в переменную $1 в операторе '!1a' =~ /((?>[!\d]+|\S+))$/?
• # Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ / ^(\w+?)(?(1)^\d+) /m?