perl -pe /print/ ip_addr_file