If you want to match a string against many different patterns, it could give an improvement in performance if you "study" your variable before the matchings...

perldoc -f study

Best regards,
perl -le "s==*F=e=>y~\*martinF~stronat~=>s~[^\w]~~g=>chop,print"