>perl -wMstrict -le
"my $default = q{''};
 for my $name ('', 'fred') {
   print qq{name = ${ \ do { $name || $default }}};
   print qq{name = @{[ $name || $default ]}};
   }
"
name = ''
name = ''
name = fred
name = fred