$out = substr $string, 0, 4;