join
    "," ,
    map
        substr( $str, $-[$_], $+[$_] - $-[$_] ),
        1 .. $#+;