Есть ли в классе строк или в алгоритмах разбиение строку на лексемы?

#include <iostream>
#include <cstring>
#include <string>
#include <vector>
#include <algorithm>
#include <cstdlib>
int main()
{
    std::string BaseString;
    std::vector<std::string> ArrString;
    std::cout<<"Enter string\n";
    std::getline(std::cin, BaseString);
    std::cout<<BaseString<<'\n';
    char*p;
    p=strtok((char*)BaseString.c_str(), ",. :!?");
    if(p)
    {
        ArrString.push_back(p);
        
    }
    while(p!=0)
    {
        p=strtok(0,",. :!?");
        if(p)
        {
            ArrString.push_back(p);
        }
    }
    std::vector<std::string>::iterator s=ArrString.begin();
    while(s!=ArrString.end())
    {
        std::cout<<*s<<'\n';
        s++;
    }
    int i=0;
    size_t max=ArrString[i].size();
    s=ArrString.begin();
    while(s!=ArrString.end())
    {
        if(ArrString[i].size()>max)
            max=ArrString[i].size();
        s++;
        i++;
    }
    i=0;
    s=ArrString.begin();
    while(s!=ArrString.end())
    {
        if(ArrString[i].size()==max)
            std::cout<<"Word with max lenght is: "<< *s <<'\n';
        s++;
        i++;
    }
    return 0;
}

#include <iostream>
#include <fstream>
#include <deque>
#include <sstream>
#include <algorithm>
#include <iterator>
 
int main()
{
    std::string str("An international edition was released on August 9, 2005, published by Drakkar, with a different track listing");
    std::string punct(",!.:?");
    size_t index;
    //Меняем встретившиеся знаки препинания на пробелы
    while((index=str.find_first_of(punct))!=std::string::npos)
        str[index]=' ';
    std::stringstream ss(str);
    std::deque<std::string> dq;
    std::string temp;
    while(ss >> temp)
        dq.push_back(temp);
    std::copy(dq.begin(), dq.end(), std::ostream_iterator<std::string>(std::cout, "\n"));
    system("pause");
    return EXIT_SUCCESS;
}