perl -le'$_="ABC\nDEF"; s/C\$\n^D/-/m; print' perl -le'$_="ABC\nDEF"; s/C$[\n]^D/-/m; print'