unpack:

($chars, $string) = unpack "a$n a*", $string;
[download]

The four parameter substr is clearly the cleanest solution though.