my $ModNameList = ",cqa_16k_otp_array_a.output,cqa_4x4k_otp_array_b.output,cqa_BOAC_TEST_1.output,cqa_IPA_WLR_01_1P0.output,cqa_IPA_WLR_02_1P0.output,cqa_IPA_WLR_03_1P0.output,cqa_IPA_WLR_04_1P0.output,cqa_IPA_WLR_05_1P0.output,cqa_IPA_WLR_06_1P0.output,cqa_ac_1.output,cqa_ac_10.output,cqa_ac_11.output,cqa_ac_12.output,cqa_ac_13.output,cqa_ac_14.output,cqa_ac_15.output,cqa_ac_16.output,cqa_ac_2.output,cqa_ac_3.output,cqa_ac_4.output,cqa_ac_5.output,cqa_ac_6.output,cqa_ac_7.output,cqa_ac_8.output,cqa_ac_9.output,cqa_antenna_m1tn.output,cqa_antenna_m2tn.output,cqa_antenna_nmos_dea_hvg.output,cqa_antenna_nmos_dea_lvg.output,cqa_antenna_npn.output,cqa_antenna_pmos_dea_hvg.output,cqa_antenna_pmos_dea_lvg.output,cqa_antenna_pmos_thin_gate.output,cqa_antenna_pnp.output,cqa_antenna_tin_ply.output,cqa_asetsafsda.output,cqa_bip_mismatch.output,cqa_bjt_singles.output,cqa_bjtmtch_ctchn_1.output,cqa_bjtmtch_ctchn_10.output,cqa_bjtmtch_ctchn_11.output,cqa_bjtmtch_ctchn_12.output,cqa_bjtmtch_ctchn_2.output,cqa_bjtmtch_ctchn_3.output,cqa_bjtmtch_ctchn_4.output,cqa_bjtmtch_ctchn_5.output,cqa_bjtmtch_ctchn_6.output,cqa_bjtmtch_ctchn_7.output,cqa_cqa_testcase_allfail.output,cqa_cqa_testcase_allpass.output,cqa_ctop_a.output,cqa_ctop_b.output,cqa_ctopm1_a.output,cqa_ctopm1_b.output,cqa_ctopm2_a.output,cqa_ctopm2_b.output,";

my @files = (cqa_16k_otp_array_a.output","cqa_4x4k_otp_array_b.output","cqa_BOAC_TEST_1.output","cqa_IPA_WLR_01_1P0.output","cqa_IPA_WLR_02_1P0.output","cqa_IPA_WLR_03_1P0.output","cqa_IPA_WLR_04_1P0.output","cqa_IPA_WLR_05_1P0.output","cqa_IPA_WLR_06_1P0.output","cqa_ac_1.output","cqa_ac_10.output","cqa_ac_11.output","cqa_ac_12.output","cqa_ac_13.output","cqa_ac_14.output","cqa_ac_15.output","cqa_ac_16.output","cqa_ac_2.output","cqa_ac_3.output","cqa_ac_4.output","cqa_ac_5.output","cqa_ac_6.output","cqa_ac_7.output","cqa_ac_8.output","cqa_ac_9.output","cqa_antenna_m1tn.output","cqa_antenna_m2tn.output","cqa_antenna_nmos_dea_hvg.output","cqa_antenna_nmos_dea_lvg.output","cqa_antenna_npn.output","cqa_antenna_pmos_dea_hvg.output","cqa_antenna_pmos_dea_lvg.output","cqa_antenna_pmos_thin_gate.output","cqa_antenna_pnp.output","cqa_antenna_tin_ply.output","cqa_asetsafsda.output","cqa_bip_mismatch.output","cqa_bjt_singles.output","cqa_bjtmtch_ctchn_1.output","cqa_bjtmtch_ctchn_10.output","cqa_bjtmtch_ctchn_11.output","cqa_bjtmtch_ctchn_12.output","cqa_bjtmtch_ctchn_2.output","cqa_bjtmtch_ctchn_3.output","cqa_bjtmtch_ctchn_4.output","cqa_bjtmtch_ctchn_5.output","cqa_bjtmtch_ctchn_6.output","cqa_bjtmtch_ctchn_7.output","cqa_cqa_testcase_allfail.output","cqa_cqa_testcase_allpass.output","cqa_ctop_a.output","cqa_ctop_b.output","cqa_ctopm1_a.output","cqa_ctopm1_b.output","cqa_ctopm2_a.output","cqa_ctopm2_b.output);

##</code><code>##

my @cqa_status;
foreach my $file ( @files ) {
	if($file =~ /^cqa_(.*)\.output$/i) {
		my $name = $file;
		$name =~ s/^cqa_//i;
		$name =~ s/\.output$//i;
		if( $ModNameList =~ /^(.*),$name,(.*)$/ ) {
			print "Matched $name:" . ($ModNameList =~ /^(.*),$name,(.*)$/) . "<br>\n";
			push(@cqa_status, $file);
		}
	}
}

##</code><code>##

my @cqa_status;
foreach my $file ( @files ) {
	if($file =~ /^cqa_(.*)\.output$/i) {
		my $name = $file;
		$name =~ s/^cqa_//i;
		$name =~ s/\.output$//i;
		if( $ModNameList =~ /^(.*),$name,(.*)$/ ) {
			print "Matched $name:" . ($ModNameList =~ /^(.*),$name,(.*)$/) . "<br>\n";
			push(@cqa_status, $file);
		}
	}
}