my $s = 'ABCDE';
print substr($s,0,2)='',$/;    # EXPECT '', GET 'cd'?
print substr($s,0,2)='foo',$/; # EXPECT 'foo', GET 'fo'?