my %multipliers = (MLN => 1_000_000, BLN => 1_000_000_000, TRI => 1_000_000_000_000);
...

 $value = $1 * $multipliers{$2}
  if $value =~ /^([+-]?\d*\.?\d+)\s*(MLN|BLN|TRI)$/;