perl -e "$d=qq(d); $c = $d; $d = $c++; print $c,$d;"
ed