{ local $^W; # disable runtime warnings for this block # For example: $str = join "#", 'A', undef, 'B'; }