DB<1> $temp = "BCInletTemperature = 90[C]";

  DB<2> (undef,$tmp) = split /=/, $temp;

  DB<3> print $tmp
 90[C]
  DB<4> temperature = (split /\[/, $tmp)[0];

  DB<5> p $temperature
 90