sub get_sensor_id($) { my ($sensor) = @_; print "sensor input: $sensor\n"; return 0; } #### $value =~ s/^\s+|\s+$//g;