Though i have never worked on perl, not even once. I have ported the perl code into PHP and it seems like giving a correct result. But as I am going to use it on production server. I want this code to get it reviewed, please let me know if there is any problem in the porting from perl to PHP.#!/usr/bin/perluse strict;my $WORD_FILE = '/usr/share/dict/words'; #Change as neededmy %words; # Hash of words in dictionary# Open dictionary, load words into hashopen(WORDS, $WORD_FILE) or die Failed to open dictionary: $!\n;while (<WORDS>) {  chomp;  $words{lc($_)} = 1;}close(WORDS);# Read one line at a time from stdin, break into wordswhile (<>) {  chomp;  my @words;  find_words(lc($_));}sub find_words {  # Print every way $string can be parsed into whole words  my $string = shift;  my @words = @_;  my $length = length $string;  foreach my $i ( 1 .. $length ) {    my $word = substr $string, 0, $i;    my $remainder = substr $string, $i, $length - $i;    # Some dictionaries contain each letter as a word    next if ($i == 1 && ($word ne a && $word ne i));    if (defined($words{$word})) {      push @words, $word;      if ($remainder eq ) {        print join(' ', @words), \n;        return;      } else {        find_words($remainder, @words);      }      pop @words;    }  }  return;}The PHP code which I want a review on:<?php$WORD_FILE = file_get_contents (word.txt) ;$temp_arr = explode(\n, $WORD_FILE);foreach ($temp_arr as $str){    $words [$str] = 1 ;}$processed = Array () ;find_words ($argv[1]) ; print_r ($processed) ;function find_words ($str){    global $words ;    global $processed ;    $string = $str ;    $length = strlen ($str) ;    for ($i = 1 ; $i <= $length + 1; $i++)    {        $word = substr ($string, 0, $i) ;        $remainder = substr ($string, $i, $length - $i) ;        if ($i == 1 && ($word != a && $word != i)) ;        if (array_key_exists ($word, $words))        {            array_push($processed, $word) ;            if ($remainder == )            {                return ;            }            else            {                find_words ($remainder, $words) ;            }            echo popping the word  . array_pop ($words) . \n;        }    }    return ;}?>
splitting multiple joined words, port from perl to PHP
php;algorithm;strings;parsing;perl