1 files changed, 9 insertions, 0 deletions
diff --git a/bin/solve-xghost.pl b/bin/solve-xghost.pl
new file mode 100644
index 0000000..ebfa864
--- /dev/null
+++ b/bin/solve-xghost.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use Games::Word::Wordlist;
+
+my $start = $ARGV[0] or die "Usage: $0 <subword>\n";
+my $wl = Games::Word::Wordlist->new('/usr/share/dict/words');
+my $re = join '.*', split(//, $ARGV[0]);
+print "$_\n" for $wl->words_like(qr/$re/i);