00CH,Gateshead MCD,619,172.90,158.94,186.87,,537,87.42,79.61,95.23,,1156,126.89,119.29,134.50



##</code><code>##

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