if ($test =~ /([a-hA-H][1-8])\s*to\s*([a-hA-H][1-8])/) {