http://perl-begin.org/tutorials/bad-elements/