Print "enter a formula.\n"; chomp ($form=); @array = $form =~ /[A-Z][a-z]?|\d+/ig