my $s = 'ABCDE';
print substr($s,0,2)='1'; # EXPECT '1C' or '1CDE'?