#!/bin/perl

my $data = `cat vars`;
my %vn;
$data =~ s/\n//g;
while ($data =~ s/VALUE="([^"]+)"><TD>([^<]+)</got($1,$2)/gex ) {
  ;
}
 
foreach my $v (keys %vn) {
  print "<rdf:Property rdf:about=\"http://xmlns.com/foaf/corp#$v\" \
  rdfs:label=\"$v\" rdfs:comment=\"" .$vn{$v}."\"/>\n\n";
}

sub got {
  my $var=shift;
  my $label = shift;
  $var = lc($var);
  print "$var: $label \n";
  $vn{$var}=$label;
}