Select Code to Download

sub perception() {
    my @result;
...
    }
    return join ' ', @result;
}

 if ( $word =~ /\W+/) {
                $letters = (index $word, $&)-1;
        }