http://qs321.pair.com?node_id=892874

7stud has asked for the wisdom of the Perl Monks concerning the following question:

Dear Monks,

I can't get paragraph mode to work in the following example:

$/ = ""; while (my $para = <DATA>) { print "*" x 20, "\n"; print $para; print "*" x 20, "\n"; } __DATA__ hello world bye hello world2 bye2 end

The code just slurps the whole file. I can read the file line by line--but not paragraph by paragraph. I also tried using $/ = "\n\n", but that doesn't work either.