in reply to Public IP Address

I don't think there is a standard way of determining your outside IP address, if only because there may be many different adresses for different interpretations of "outside". what you're doing now seems like a reasonable approach.

$content =~ s/.*Current IP Address: ([\d.]+).*/$1/;
should filter the address.