#!/usr/bin/perl
use strict;
use warnings;
$|++;


while( <DATA> )
{
  next unless /^"\\\\/;                   # valid lines only
  chomp;                                  # remove EOL
  my @column_pieces = split /\\/, $_, 5;  # split on \, max 5 fields
  print $column_pieces[-1]=~/^(.*)"$/,$/; # display last (fifth) field
}

__DATA__
"(PDH-TSV 4.0) (Eastern Daylight Time"(240)"

"\\PLAGUE\Memory\Pages/sec"

"\\PLAGUE\Network Interface(3Com EtherLink PCI)\Bytes Total/sec"

"\\PLAGUE\PhysicalDisk(_Total)\Disk Transfers/sec"

"\\PLAGUE\Processor(_Total)\% Processor Time"
[download]

prints:

Pages/sec
Bytes Total/sec
Disk Transfers/sec
% Processor Time
[download]

~Particle *accelerates*