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