if ($infile !~ /\.CATDrawing$/);