my ($TNAME, $TVALU, $TFILE, $REGEX, $REST);
if ($RECORD =~ m/^([^:]+):([^:]+):([^:]+):(.+):([^:]+):$/) {
  $TNAME = $1;
  $TVALU = $2;
  $TFILE = $3;
  $REGEX = $4;
  $REST  = $5;