s/[\W!?,.;:'"]//g; would do too... I think \W uses locale

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.