perl -pi -le'$_=substr($_,0,index($_,"?")+1)' file.txt