my $x='12.0 M';
$x=~ s/[^0-9]//g;
print $x."\n";
print "######################################################\n";
my $xx='12.67 M';
$xx=~ /(\d+.*\d)/g;
print $1."\n";
print "######################################################\n";
my $xxx='0.00 MB';
$xxx=~ /(\d+.*\d)/g;
print $1."\n";
$x=~ s/[^0-9]//g;
print $x."\n";
print "######################################################\n";
my $xx='12.67 M';
$xx=~ /(\d+.*\d)/g;
print $1."\n";
print "######################################################\n";
my $xxx='0.00 MB';
$xxx=~ /(\d+.*\d)/g;
print $1."\n";