Какое значение получит переменная $1 в результате работы программы $_="123!abc!"; /\w+/g; /(\w+)/?

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

• # Какое значение получит переменная $a в результате работы программыmy $a; 'abc' =~ /(\w)+(?{ $a=$+ })
• # Что будет напечатано в результате выполнения программыmy $a=$_=1; while ($a < 4 && /$a/o) { print $&; $_++; $a++; }
• # Что будет напечатано в результате выполнения программыmy $b='ab'; my $a='a'; while ($a ne 'd' && $b =~ /(?{ ++$a })$a/o) { print $&; }
• # Какое значение будет иметь переменная $1 в результате работы оператора 'abc123' =~ /\w+?(?!(\d+?))/?
• # Какое значение будет иметь переменная $a в результате работы программыmy $a=0; 'abcABC' =~ /(?:abc(?{ ++$a })|ABC(?{ $a+=10 }))(?!$)/;