Given an array @slobber, replace all the CR-LF with CR:
foreach (@slobber) { s/\015\012$/\n/; print; }