in reply to Extracing (and excluding) IP's from a file

perl -le 'while(<>) { $flag=1 if /vfiler1/;print $1 if $flag and m/([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})/}' infile

In Section Seekers of Perl Wisdom