~/perl_stuff> grep blade /usr/dict/words 
blade
switchblade

~/perl_stuff> perl golf.pl 
aye
baldy
bay
bayed
beady
bey
by
bye
byte
day
delay
dey
dye
lady
lay
lye
y
ye
yea
yet