open(my $data, '<', $Config_File) or die "Could not open '$Config_File' $!\n";
   my $reg_exp;
   my $severity;
   my @fields=();
   while (my $line = <$data>) 
   {  
     chomp $line;   
	 if(!$line =~ /^$/)
	 {
	 @fields = split "," , $line;
	 $reg_exp = $fields[0];
	 $severity = $fields[1]; 
	 print $reg_exp;
	 }
	 }
		 
	 #print $fields[0];
	 #last unless defined $line;
	
   close($data)	;