in reply to regular Expression

try

$_ =~ /[^\w\d\s]+/;

* Frank *

In Section Seekers of Perl Wisdom