if (defined $r && !$r){

  do something

}