And even smarter if the list is long (although I'm replacing something that had only two items in the list):

sub def {
  defined $_ and return $_ for @_;
  "";
}
[download]

-- Randal L. Schwartz, Perl hacker