Какое значение получит переменная $1 в результате работы программы my @a = "123" =~ /\G(?=\d)(\d)/g?

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

• # Что будет напечатано в результате работы программыmy $a='a'; my $re=qr/$a/i; $a='A'; print 'OK' if 'a' =~ $re;
• # Какое значение будет иметь переменная $1 в результате работы оператора 'abc123' =~ /\w+?((?!\d+?))/, если известно, что это не undefined?
• # Какое значение получит массив @a в результате работы оператора my @a = "abc!abc" =~ /\w+/?
• # Какое значение получит переменная $_ в результате работы программы $_="123"; s/(?<=\d)/!/g?
• # Какое значение примет переменная $2 в результате работы программы'ab!abc!a!' =~ /(\w+)!(\w+)!(?(?{ $1 lt $2 })(?!\w))/