perl 提取字符串的中数字（包括小数点）

my $x="12.0 M";
$x=~ s/[^0-9]//g;
print $x." ";


print  "###################################################### ";


my $xx="12.67 M";
$xx=~ /(d+.*d)/g;
print $1." ";


print  "###################################################### ";


my $xxx="0.00 MB";
$xxx=~ /(d+.*d)/g;
print $1." ";