$reg1='(ERROR)';
    
    ...

     elsif ($lookup =~ m/$reg1/isg)