Uppercase comparison ops were deprecated in 5.6 (and hence could be ignored with no warnings "deprecated";). They've been made an error in 5.8, so no there's not a way to disable it since it's a syntax error and invalid code.

The long deprecated uppercase aliases for the string comparison operators (EQ, NE, LT, LE, GE, GT) have now been removed.

--
John.

Update (May 6):: Actually if you give all the scenes with represents those operators, we may help you to build the regex.

To build on the other good answers already posted, you have two options:

1. Fix your code
2. Don't use 5.8

You have a hard choice to make. Personally, I would go with the first option, but neither one sounds particularly appealing. Perhaps the long period of time in which the uppercase comparison ops were deprecated should have caused you to think about fixing the code appropriately. 8^)

Two other options: maintain a local modified perl that reenables those (see http://public.activestate.com/cgi-bin/perlbrowse?patch=10185 and http://public.activestate.com/cgi-bin/perlbrowse?patch=6454), or use a source filter to translate them to lower case.

#!/usr/bin/perl

if ('A' EQ 'A')
{
  print "Equal\n";
}
[download]

Bareword found where operator expected at /tmp/test line 3, near "'A' 
+EQ"
        (Missing operator before EQ?)
String found where operator expected at /tmp/test line 3, near "EQ 'A'
+"
        (Do you need to predeclare EQ?)
syntax error at /tmp/test line 3, near "'A' EQ "
Execution of /tmp/test aborted due to compilation errors.
[download]

However, if there is a way to suppress this warning, the manpage for perllexwarn would be the place to look.

There is no warning in perl5.8, it generates an error instead as you found. With perl5.005 and perl5.6 and with -w the following warning is produced:

    Use of EQ is deprecated at EQ.pl line 3.
    Equal
[download]

--
John.