my $s = 'ABCDE';
print $s='',$/;                # EXPECT ''
print $s='foo',$/;             # EXPECT 'foo'