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