To add to the above, depending on how you would get the output:

my $line;
open(OUTPUT, "|command that gets output") or die "dead";
while(<OUTPUT>) {
    if (/Buffers/) { 
        $line = <OUTPUT>; 
        last; 
    }
}
close(OUTPUT);
[download]

This is probably right. Maybe not.

melguin