$temp =~ s/<(?:[^>'"]*|(['"]).*?\1)*>/\n/gs;
  my %temp = grep length, split /\n/, $temp;
  print "$temp{"Serial Number:"}, $temp{"Model:"}, $temp{"CPU:"}\n";