created a stripped down version of the original perl script to take out a :D emoticon