Select Code to Download

if(isalpha(*(s-1)) && strchr(chrsep, *s) && isalpha(*(s+1))) {
  if(space_words(s, *s)) {
...
    }
  }
}

#!/usr/bin/perl

...
  }
  print Dumper(\%hash);
}

$VAR1 = {
          'three' => 1,
...
$VAR1 = {
          'x21' => 1
        };