$ perl -wle '$_=shift; /\S+\s+(\S+)/ and print $1' ".declare cube_no        9999999.999"
cube_no

##</code><code>##

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