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