Что напечатается в результате работы программы

our $a;  'abcABC' =~ /(?{ local $a=0 })(?:abc(?{ ++$a })|ABC(?{ $a+=10 }))(?!\w)(?{ print $a })/

Что напечатается в результате работы программы

our $a;  'abcABC' =~ /(?{ local $a=0 })(?:abc(?{ ++$a })|ABC(?{ $a+=10 }))(?{ print $a })/

Что напечатается в результате работы программы

our $a;  'abcABC' =~ /(?{ local $a=0 })(?:abc(?{ ++$a })|ABC(?{ $a+=10 }))(?!$)(?{ print $a })/

Что будет напечатано в результате работы программы

my $re=qr'(\w+)c';  print $1 if 'abcabc' =~ /$re+/;

Что будет напечатано в результате работы программы

my $re=qr/(\w+)\w/;  print $1 if 'abcabc' =~ /$re+/;

Что будет напечатано в результате работы программы

my $re=qr/(ab)c/;  print $1.$2 if 'abcabc' =~ /$re+$re+/;

Что будет напечатано в результате работы программы

my $re=qr/(\w+)c/;  print $1 if 'abcabc' =~ m'$re+';

Что будет напечатано в результате работы программы

my $re=qr/(\w+)c/;  print $1 if 'abcabc' =~ /$re+/;

Какое значение будет иметь переменная $a в результате работы программы

my $a=0;  'abcABC' =~ /(?:abc(?{ ++$a })|ABC(?{ $a+=10 }))(?!$)/;

Какое значение будет иметь переменная $^R в результате работы программы

'abcABC' =~ /(?:([a-z])(?{ $+ })|([A-Z])(?{ $+ }))\Z/?

Какое значение будет иметь переменная $a в результате работы программы

my $a=0;  'abcABC' =~ /(?:abc(?{ ++$a })|ABC(?{ ++$a }))(?!\w)/;