# match a number using regular expreeion - for more # information, read "Learning Perl" or "Programming Perl", # both published by O'Reilly at: # http://www.ora.com