$str =~ s/\s//g;

##</code><code>##

$str =~ s/[^\d-,]//g;