my @description = ($item =~ m/<description>(.+) <\/description>/g);
	  foreach my $x (@description) {print "PT:$x\n\n " };