$ perl -wle '$_=shift; print +(split)[1]' ".declare cube_no        9999999.999"
cube_no