/inet\ addr:(\d+\.\d+\.\d+\.\d+)\s+.*$/;
...
print MAIL $1;