$line =~ s/0030/AAAA/g;
		$line =~ s/0031/BBBB/g;
		$line =~ s/0884/CCCC/g;
		$line =~ s/0716/DDDD/g;
		$line =~ s/0528/EEEE/g;