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