or you could even do:

my @string="Pid    DenyMode   R/W        Oplock           Name";
foreach (@string) {
        my ($pid,$deny,$rw,$oplock,$name) = split;
        # do something here
}
[download]

yeah, it's big.