my $mult=chop($mcap);
 my $dec=$mcap-int($mcap);
if ($mcap =~ s/([^0-9.]+)\z//)
{
    my $suf=1;
   die if !$multiplier{$suf};
  $mcap *= $multiplier{$suf};
}
print "multiplier is $mult and decimal portion is $dec and mcap is $mcap\n";

##</code><code>##

multiplier is B and decimal portion is 0.200000000000003 and mcap is 108.2