if ($_ =~ /^(00CH,Gateshead MCD)/){

      my $Place = $1;
   
      if ($line =~ /^$Place\,(\d(\d|\.)*)\,(\d(\d|\.)*)\,(\d(\d|\.)*)\,(\d(\d|\.)*)\,\,*(\d(\d|\.)*)\,(\d(\d|\.)*)\,(\d(\d|\.)*)\,(\d(\d|\.)*)\,\,*(\d(\d|\.)*)\,(\d(\d|\.)*)\,(\d(\d|\.)*)\,(\d(\d|\.)*)/) {
	

# $first = $1;  # etc