# cat test.pl 
#!/usr/local/bin/perl -w

open IN,$ARGV[0];
while (<IN>){
        @F=split;
        $F[1]=~s/\s+//g;
        print $F[1] if $F[1]!~/^[\w-]+$/;
}
Spec4153@Sys05# cat test
0xc1d3314   COLT_Leinfelden-Echterdingen      0x10290     Pingable        
0xc131af7   iteb_Quackenbrueck-Backup         0x21000c    Rtr_Cisco       

./test.pl test
COLT_Leinfelden-Echterdingen #