if ( $ip =~ /^0.0.0.0$/ )
{
    # do something
}