RSTRTRIM - Rimuovere particolare carattere da elenco di parole

[Mister]

Tramite il codice di esempio sotto io posso rimuovere l'eventuale carattere S solo dall'ultima parola, in questo caso se la S fosse presente nella parola word.

Come posso far si che l'ultimo carattere della parola venga rimosso se il carattere è S e da tutta la lista delle parole?

Per intenderci, risultato stringa: fruit apple love word

Grazie

function rstrtrim($str, $remove=null)
{
    $str    = (string)$str;
    $remove = (string)$remove;   
   
    if(empty($remove))
    {
        return rtrim($str);
    }
   
    $len = strlen($remove);
    $offset = strlen($str)-$len;
    while($offset > 0 && $offset == strpos($str, $remove, $offset))
    {
        $str = substr($str, 0, $offset);
        $offset = strlen($str)-$len;
    }
   
    return rtrim($str);   
   
} //End of function rstrtrim($str, $remove=null)

echo rstrtrim('fruits apples love word' , 's'); 

[Magicale]

Se devi rimuovere una singola lettera, questa è una possibile soluzione:

function rstrtrim($str, $remove=null) 
{ 
    $str    = (string)$str; 
    $remove = (string)$remove;    

    if(empty($remove))  
       return rtrim($str); 
    else 
       return  preg_replace('/[' . $remove . ']([^\\w])|[' . $remove . ']$/i', '$1', $str);   
    
}

echo rstrtrim('fruits apples love word' , 's'); 

[Mister]

Grazie mille