or download this
#Look only at the summary lines where $_ == 560
while (defined ($_ = <FILE>)) {
...
$_ =~ s/`/,/g; #this is here to get the user name because ' i
+s after name
@x=split(/,/);
if (!($x[16] =~ /Primary User Name: CISERFS1/)) { #dont want t
+he details from the sytem