Would $data =~ s/(\r|\n){1,2})/\n/g work as well? (Unfortunately, I don't have time to test it out-- and I'm notorious for FUing my regexes the first time out.)

The Autonomic Pilot