Now I understand what you said, and agree.

Thanks for showing a better solution!

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