sub main(){

	my @files = glob("*.{ctl,inc}");
	my %srss;
	
	
	open (OUT, ">SRS_List.txt") or die "Can't open file: SRS_List.txt";
	
	foreach my $file (@files){
		open (IN, $file) or die "Can't open file: $file";
		
		while (<IN>){
			if (my @matches = ($_ =~ /SRS[_\s]?(\d+)/gi)){
				foreach my $match (@matches){
					if (!$srss{$match}){
						$srss{$match} = 1;
					}
				}
			}
		}
		if / \.log$/
			while (<IN>){
				if (my @matches = ($_ =~ /SRS[_\s]?(\d+)/gi)){
				foreach my $match (@matches){
					if (!$srss{$match}){
						$srss{$match} = 1;
						}
					}
				}
			}
		close (IN);
		print (OUT $file."\n");
		if (keys %srss){
			print OUT "SRS_(".join("|", sort {$a <=> $b}(keys %srss)).")";
			%srss = undef;
		}
		else{
			print(OUT "NONE");
		}
		print (OUT "\n\n");
	}	
	close(OUT);		
}
main();