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

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

• # Какое значение получит переменная $a в результате работы программыmy $a; 'abc' =~ /(\w)+(?{ $a=$+ })
• # Что будет напечатано в результате работы оператораprint join '-', split //, 'abc';
• # Что будет напечатано в результате работы программы$a='-'; for (0..1) { print split (/$a/o, 'a-b:c', 2); print '!'; $a=':'; }
• # Какое значение получит массив @a в результате работы программы my @a="abc\n123" =~ /\w+/g?
• # Какое значение получит переменная $_ в результате работы программы $_='abc123'; s/(\d)/$1+100/eg?