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