#!/usr/bin/perl -w

use strict;
use PhoneToWord;

my $foo = new PhoneToWord qw(663-7375);

my @three = $foo->first_three();
my $four = $foo->last_four(); 
my @all = $foo->seven();

print join "\n", @three;
print "\n";
print join "\n", @$four;
print "\n";
print join "\n", @all;

# Output (with my dictionary, of course)
MOD
MOE
NOD
ONE
PERL

So, I had no seven letter words, 4 three letter ones, and one 4 letter one.
So, this phone number (not mine, so don't call it :) can be ONE-PERL.