#!/usr/bin/perl -w

use strict;

use Anagram;

while (<>) {
    chomp;
    my $word = $_;
    s/\W//g;
    my $base = lc;
    my @words = grep { $base ne $_ } Anagram::anagram($base);
    next unless @words;

    print "\nAnagrams of $_:\n";
    print "  $_\n" foreach @words;
}