...
my $vfiler0 = 0;
while(<FaH>)
{
  chomp;
  if(/^\s*$/)
  {
    $vfiler = 0;
  }
  if(/vfiler0/)
  {
     $vifiler = 1;
  }
  if (!$vfiler && m/([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})/)
  {
    $ip=$1;
    print FaHout "$ip\n";
  }
}
...