Как в Perl разделить исходный текст на кусочки?

[rsv]

Как в Perl разделить исходный текст на кусочки?

Разделителем является строка из трех символов \x0D\x0D\x0A
пытаюсь сделать так
@parts=split(/\x0d\x0d\x0a/,$text);
в результате $parts[0]=$text;
Хотя точно известно, что в $text есть последовательность-разделитель и не одна

-~{}~ 16.11.04 10:36:

и так тоже не работает
@parts=split(/\n\n\r/,$text);

 

[Crazy]

Посмотри в документации список модификаторов, которые добавляются после регулярного выражения.

 

[rsv]

модификаторы смотрел ничего не нашел
вот что меня смущает:
$data="\x0D\x0A";
open($fp,'>c:\usr\perl\outdata.txt');
print $fp $data;
close($fp);

outdata.txt размер 3 байта
как так? ведь очень ясно в строке написаны 2 байта

 

[Silent]

$z = "sdfbsdf\x0d\x0d\x0ashsth\x0d\x0d\x0azdhdh\x0d\x0d\x0ashsh";
@parts=split(/\x0d\x0d\x0a/,$z);
print "@parts";

Все работает. Ты уверен, что в строке есть такая комбинация символов, как ты проверяешь?