#!/usr/local/bin/perl

use strict;
use warnings;
use Data::Dumper;

my @foo;

while ( <DATA> ) {
   push @foo, m/\\\\(\w+)/;
}

print Dumper \@foo;

# ohne Leerzeichen:
_ _DATA_ _

Servername             Beschreibung

-----------------------------------------------------------
\\SAPTRANSHOST         SAP Rechner
\\SCHUFA02             samba exports
\\SNAGATE1
\\TRABI
\\WOLGA
\\WUNALA               Datenbank- und Entwicklungsserver