Programming Tips - How do I break up a string into lines in perl?

Date: 2012may18 Language: perl Q. How do I break up a string into lines in perl? A. Here you go:
foreach $line (split(/\r\n|\n/, $contents)) { print "$line\n"; }
This handles lines that end in CR-LF (line HTTP and Windows) or LF (like Linux and iOS); the vast majority of situations. It also preserves blank lines. If you want to read a file into lines don't to the above, to do this:
open(FILE, 'myfile.txt'); while ($line = <FILE>) { chop($line); print "$line\n"; } close(FILE);