Move from 'unpack' back to split('').

After some benchmarking I came to the conclusion split is faster.

1 files changed, 1 insertions, 2 deletions

diff --git a/challenge-111/perlboy1967/perl/ch-2.pl b/challenge-111/perlboy1967/perl/ch-2.pl
index 3ca8cf7463..1b69c5013a 100755
--- a/challenge-111/perlboy1967/perl/ch-2.pl
+++ b/challenge-111/perlboy1967/perl/ch-2.pl
@@ -39,8 +39,7 @@ sub findLongestOrderedWords($) {
   for my $word (sort { length($b) <=> length($a) } grep /^[a-z]+$/,@inWords) {
     my $wlen = length($word);
     if (!defined $wlenMax or $wlenMax == $wlen) {
-      # Use unpack as it is slightly faster than split(//)
-      if ($word eq join('',sort unpack '(A1)*',$word)) {
+      if ($word eq join('',sort split '',$word)) {
         push(@words, $word);
         $wlenMax = $wlen;
       }