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