Perl script to mask IPs