perl -e '($a,b) = chop'
perl -de '($a,b) = chop' # the pressing "c" to continue