use URI;
my $url = 'http://foo.bar.com';
my $uri = new URI($url);

if( $uri->host =~ /[a-zA-Z\-]/ ) { # or /[^\d\.]/
#    it's an IP dag-nabbit
}