Hi.. your negating the matched patten that is the problem. see the Example.

my $long =-4.332423424;
my $lat = 0;

if (
    ($long > 180 || $long < -180)
    ||
    ($lat > 90 || $lat < -90)
    ||
    $long =~ /^([\d\-\.]+)$/
    ||
    $lat  =~ /^([\d\-\.]+)$/
)
{

    print "welcome\n";
}
[download]

Now it matched the condition correctly.