perl -le'$_="ABC\nDEF"; s/C$ \n^D/-/mx; print' perl -le'$_="ABC\nDEF"; s/C(?:$)\n^D/-/m; print' perl -le'$_="ABC\nDEF"; s/C$(?:\n)^D/-/m; print'