#! /usr/software/bin/perl
        open (FaHout, ">> /tmp/vflist2.out");
                open (FaH, "/tmp/vflist1.out");
                        while ( <FaH> ) {
                        chomp;
                                if (m/{[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}}/) {
                                $ip=$1;
                                print FaHout "$ip\n";
                                }
                        }
                close FaH;