while ( $file =~/<BOXIND\s+NUM\s*=\s*"(\d+)"\s+ID\s*=\s*"([\w\.]+)"\s*\/>/ig) {
	push(@ind,$2);
}