perl -MO=Deparse -e " $key=substr ($input,0, index($input,qq/ /,-1));"