How many words can you spell using only the symbols of the periodic table? Run this Perl script on Mac OS X 10.4 to find out…

#!/usr/bin/perl
 
# The collection of atoms used to spell words
$atoms = "Ac| Ag| Al| Am| Ar| As| At| Au| B| Ba| Be| Bh| Bi| Bk| Br| C| Ca| Cd| Ce| Cf| Cl| Cm| Co| Cr| Cs| Cu| Db| Ds| Dy| Er| Es| Eu| F| Fe| Fm| Fr| Ga| Gd| Ge| H| He| Hf| Hg| Ho| Hs| I| In| Ir| K| Kr| La| Li| Lr| Lu| Md| Mg| Mn| Mo| Mt| N| Na| Ne| Nb| Nd| Ni| No| Np| O| Os| P| Pd| Po| Pb| Pt| Pr| Pm| Pu| Pa| Ra| Rb| Re| Rf| Rh| Rn| Ru| S| Sb| Sc| Se| Sg| Si| Sm| Sn| Sr| Ta| Tb| Tc| Te| Th| Ti| Tl| Tm| U| Uub| Uun| Uuu| V| W| Xe| Y| Yb| Zn| Zr";
 
# Get all contents of the dictionary (it's in nasty XML format)
$wordsXml = `cat "/Library/Dictionaries/New Oxford American Dictionary.dict/Contents/dict_body"`;
 
# Extract all the actual words in the dictionary and
# put them in an array by looking for all occurrences
# of the string sortkey="..." and capturing what's
# between the quotes
@words = $wordsXml =~ /sortkey=\"(\w+?)\"/g;
 
# Loop through each word
foreach $word (@words) {
 
   # Match if we can spell this word
   # using only the atoms we defined
   if ($word =~ /^ (($atoms)+) $/ix) {
 
      # If we were successful, print it!
      print $1 . "\n";
   }
}