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