#!/usr/bin/perl -w
use strict;
my $string = "ABC";
my $value = undef;
if ($string =~ qr(DEF)) { # warning reported here
} elsif ($string =~ qr(GHI)) {
} elsif ($value/1000 ne $value) { # warning actually here
} else {
}