while($_=~/ATOM\s+\d+\s+.*?\s+.*?\s+(\w{1})\s+(\d+)\s+[\d\.\-]+\s+[\d\.\-]+\s+([\d\.\-]+)\s+.*/mg)
	{
		$chain=$1;
		$position=$2;
		$Zcoordinate=$3;
}