# 
# { ord > 0130 ? uc : (), uc } 
# 
if ( ord $_ > 0130 ) {  # if [ord] of $_ is > than 130... 
  $_ ;                  #   just return $_ 
} else {                # otherwise 
  (), $_ ;              #   return undef *and* $_ 
}