printf "last:(%s)  first(%s) middle(%s)\n",
  $last || '', $first || '', $middle || '';

##</code><code>##

printf "some format string goes here",
  map { defined($_) ? $_ : '' } (@list_of_variables);

##</code><code>##

{ no warnings 'uninitialized';
  print "whatever";
}