my $string = q|pour 2 personnes, achetez deux motos tout le monde je prépare un un projet de voyage assez similaire|;


print qq|OLD STRING: $string \n|;

$string =~ s/[^\.!\,\:\)]+[\.!\,\:\)]//;


print qq|NEW  STRING: $string|;