if ( True( $value ) ) { } else { } sub True { defined $_[0] and $_[0] and ( uc( $_[0] ) ne "NULL" ) # and $_[0] !~ /^N\/?A$/ ; }