if (uc $error eq "ERROR"){
   # . . .
}

##</code><code>##

if (lc $error eq "error"){
   # . . .
}