my ($first, $rest) = split '', $str, 2;