perl -e '$n = "Price 15.40"; $n =~s/[^\d.]//g; print "$n\n";'