perl нид хелп

попробуй заменить условие на 2 строчки:

$/='\n';
print $_,"\n" while $str=~/xyz/ig;

или наверное даже можно print while $str=~/xyz/ig;

по видимому у тебя $str формируется будучи многострочной в смысле перевода каретки \n

Переопределить перевод каретки можно изменив переменную $/='\n'

->print $_,"\n" while $str=~/xyz/ig;
а почему $_?
у меня значение в $str, а если заменить на $str, то печатается все что есть в $str.

> а почему $_?

потому что конструктивно язык перл сохраняет результат последнего выражения (в данном случае $str=~/xyz/ig ) в $_

->потому что конструктивно язык перл сохраняет результат последнего выражения (в данном случае $str=~/xyz/ig ) в $_
похоже при text-balanced, нет, просто пустные новые строчки печатаются, но их колличество равно колличеству совпадений /xyz/

значит тогда смотри что такое функция extract_bracketed там может быть отрицание какоеннить типа !extract_bracketed(); или extract_bracketed(!чето там внутри скобок)...

->значит тогда смотри что такое функция extract_bracketed там может быть отрицание какоеннить типа !extract_bracketed(); или extract_bracketed(!чето там внутри скобок)...
смотрел, поэтому и спросил, может еще как-нибуть можно?
или передать переменную в другую, но если просто
$str1=$str
то ноавя наследует от предидущей.