Select Code to Download

perl -e 'print "1:$_" while <>; print "2:$_" while <>;'

       delete-char (C-d)
              Delete the character at  point.   If  point  is  at  the
              beginning  of  the  line, there are no characters in the
              line, and the last character  typed  was  not  bound  to
              delete-char, then return EOF.