in reply to Regex trouble

$string =~ /^\D+([0-9.]*)\D*([0-9.]*)/

[download]

In Section Seekers of Perl Wisdom