my ( $temp_value ) = ( $temp =~ m/Temperature ([\d\.]+)F/ );