#!/usr/local/bin/perl -w
# reads all res files and pulls the fist CA shell # putting it in file

open (RESULT, ">firstCAshell.txt")||die "could not create report file";
open (REPORT, "report.txt");


while (<REPORT>){
	#print $_ ."\n";
	(/.*?\s+(\d+)\s+.*/);
	print RESULT $1."\n";
}

close REPORT;
close RESULT;
