#!/usr/bin/perl
system ("date");
print("BEGIN - finding cs[6-9][0-9]+: accounts \n");
while (<>) {
	if (/^cs[4-9][0-9]+:/) {
                $count++;
		print ("$. -->  $_ " ); 
	}
}
print ("END - total: $count  \n");