Help for this page
if ( join '', sort split(//, $word) eq join '', sort split(//, $to_be_matched ) ) {
if ( join('', sort split(//, $word)) eq join('', sort split(//, $to_be +_matched)) ) {