$line =~ s/0030/9999/g;
			$line =~ s/0031/9999/g;
			$line =~ s/0884/9999/g;
			$line =~ s/0716/9999/g;