#!/usr/bin/perl
use strict;
use warnings;

my $var = "use neighbor 2001:504:0:4::6181:1";
($var =~/(?!use) neighbor[[:alpha:]-]* ([[:alnum:]\.-:]+)/) and do{
    print $1;
};