sub empty_to_undef {
   return defined($_[0]) && !length($_[0]) ? undef : $_[0];
}

##</code><code>##

sub empty_to_undef {
   no warnings 'uninitialized'; 
   return length($_[0]) ? $_[0] : undef;
}