(undef,$tmp) = split(/=/,$tmp[5]);

##</code><code>##

  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

##</code><code>##

  DB<6> p "<$temperature>";
< 90>