Что будет напечатано в результате работы программы$_='abc123def'; /\d+/; print substr $_, 0, $-[0];

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

• # Что будет напечатано в результате работы программыmy $re=qr/(\w+)c/; print $1 if 'abcabc' =~ /$re+/;
• # Какое значение получит переменная $1 в результате работы программы'abc' =~ /(\w)/; '123' =~ //;
• # Что будет напечатано в результате выполнения программыmy $a=$b=1; while ($a < 4 && $b =~ /(??{ "$a" })/o) { print $&; $b++; $a++; }
• # Какое значение получит переменная $1 в результате работы программы "123abc" =~ /(\d)+\d+(?(1)abc)/?
• # Какое значение получит переменная $_ в результате работы программы $_="123!abc!"; pos($_)=4; s/\G(\w+)!/x/?