$foreach =~ s/\r?\n$//g;

##</code><code>##

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