use strict;
use warnings;

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