my @positions = $string =~ m/<a name = $id>.*?Query: (\d+).*?Sbjct: (\d+).*?<\/pre>/s;
	push (@positions, $string =~ m/<a name = $id>.*?Query: \d+\s+[a-z]+ (\d+)\n.*?\nSbjct: \d+\s+[a-z]+ (\d+)\n<\/pre>/s);