How to extract IP addresses from a text file

example: open(inhandle,"ncbi.txt"); while(<inhandle>) { chomp; if ( m/ (\d+[.]\d+[.]\d+[.]\d+) /gi ) { $client{} = ; } } close(inhandle); foreach $ip (sort keys %client) { print "$ip\n"; }