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