Help for this page
#!perl -p use List::Util 'shuffle'; $_=~s{(?<=\b\w)(\w+)(?=\w\b)}{join'',shuffle split//,$1}xeg;
perl -MList::Util=shuffle -pe '$_=~s{(?<=\b\w)(\w+)(?=\w\b)}{join"",sh +uffle split//,$1}xeg;'
www.com | www.net | www.org
No recent polls found