Thanks pvaldes!

This is a great addition to GrandFather's code. Unfortunately I can't get it to work exactly as you wrote.

Minor issues: missing closing slashes for m/\n{2} and m/\n{3,} per my Perl system.

My Perl system also could not interpret the \s escape char.

After fixing the minor issues, the resultant file turns out blank. However, this will jumpstart my attempts to get a working script. I want the following logic. If one carriage return, do nothing. If two carriage returns, substitute with one. If three or more carriage returns, substitute all with 2.

I'll post it when I can get it working.