Removing punctuation from given string by retaining ZERO in perl

Question

I am trying to remove punctuations from a given string in perl using following command

      perl -le \'$x=19.10 ; $x=~s/[[:punct:]]//g; print $x\'