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