'0E0' is special and can be used without warnings, AidenLee is right, but to clarify, the following works fine:

use strict;
use warnings;

my $num = '0E0';
print "Done\n" if $num < 1500;
print "Error\n" unless $num;
# just prints 'Done'...
[download]