in reply to extracting number from string

s/[^.\d]//g

In Section Seekers of Perl Wisdom