Что будет напечатано в результате выполнения программыmy $a=$_=1; while ($a < 4 && /$a/o) { print $&; $_++; $a++; }

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

• # Какие регулярные выражения захватят в $1 только подстроку '123 a-bc' в строке 'xyz 123 a-bc uvw'?
• # Что будет напечатано в результате работы программыmy $a='[a-z]'; my $re=qr/$a/i; print 'OK' if 'A' =~ /$re/
• # Что будет напечатано в результате выполнения программыmy $a='a'; $_='ab'; while ($a ne 'd' && /$a/o) { print $&; $a++; }
• # Какое значение получит переменная $2 в результате работы программы 'aBc1b23' =~ /a(\w)\w+(\1)/?
• # Какое значение получит переменная $^R в результате работы программы'ab!abc!' =~ /(\w+)!(?(?{ $1 eq 'abc' })(\w+)|(?{ $1 ne 'ab' }))/