summer cherry,

here is what I ended up with in my script:

#!/usr/bin/perl

open $fh,"<","myfile";
open $out,">>","mynewfile";
undef $/;
$str=<$fh>;
print $out split(/\n^$\n^$\n/s,$str,2)[0];

I got the error message below. Any ideas? I appreciate the help.

syntax error at ansipre2 line 7, near ")["
Execution of ansipre2 aborted due to compilation errors.