Какое значение получит переменная $_ в результате работы программы $_='abcABCdefDEF'; my $re=qr'[A-Z]+'; s/${re}defDEF/!/gi?

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

• # Какое регулярное выражение соответствуют всей строке '-123.456', которая содержит число?
• # Что будет напечатано в результате работы программыmy $a='a'; my $re=qr/$a/; print 'OK' if 'a' =~ /$re/;
• # Что будет напечатано в результате работы оператораprint join '-', split /(?:\d)/, 'a1b2c';
• # Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ /^(\w+?)(?(1)\s\d+)/?
• # Какое значение получит переменная $1 в результате работы программы my @a = "123" =~ /\G(?=\d)(\d)/g?