okay, i won't give it all away, but here's a good start.

while(<FILE>) {
    my @x = split /,|\^`/;
    next unless ($x[4] =~ /560/);  #we only want the files with 560
    print join("\n",@x), "\n"; # debugging print line - remove in prod
+uction
    unless($x[16] =~ /Primary User Name:    CISERFS1/) { #only match t
+his case
        print OUTPUT "$x[1] $x[2] $x[12] $x[16] \n"; # or whatever
    } # unless
} # while
[download]

by the way, you should get a login, so we know who you are when you come back!

~Particle

Update: i guess i forgot about the '\' parsing, but i'm not sure just what you want to do. you can split on /\\/, and return the fields you want, put together with join "\\", much like i did in the debug print statement.