Code:
perl -pi.orig -e '$/=undef; s/([\r\n]+)([^\r\n,]*|[^\r\n,]*,[^\r\n,]*|[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*|[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*|[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*|[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*|[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*|[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*|[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*|[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*|[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*)[\r\n]+([^\r\n,]*|[^\r\n,]*,[^\r\n,]*|[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*|[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*|[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*|[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*|[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*|[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*|[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*|[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*|[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*,[^\r\n^,]*)([\r\n]+)/\1\2\3\4/g'