no warnings;
BEGIN { $^W = 1; }
my $s = '' . undef();  # [No warnings]