Sure, no problem. Try something like this:

use Socket;

# open and read who here

$addr = inet_aton($1) if m/\((.*)\)/;
[download]