@files=glob"SBNUM_*.txt";


open OUTFILE, ">v2test.txt" or die "Could not create outfile!";


foreach $ARG(@files){

open INFILE, "<$ARG" or die "CANNOTOPENINFILE";


while (<INFILE>)
 

{

	if (m/^(\d\d\d),-->(\d\d\d),.(\d\d\d),-->(\d\d\d),/s) 
	
	{

	
	print OUTFILE "\n$1,-->$4,";

	}

	
}
}