Select Code to Download

sub check_string($word) {
    foreach $chr (split //, $word) {
...
        print "@phrase\n";
        @phrase = ();
}

m    valid partial string, so continue
my   found a whole word, so push and recurse
...

myc   invalid partial string, so quit
      @phrase = ()