if(  ref($r)  &&  "$r" =~ /=/  )