note 33449 rejected from function.ereg by curt

Note Submitter: john.winstanley@angelsolutions.co.uk ---- This explains it all http://www.perldoc.com/perl5.8.0/pod/perlretut.html Some examples at http://regexlib.com/ also see below Search for a string of the form XXXX-XXXX-XXXX-XXXX where X is a number or letter ereg("^([0-9a-zA-Z]{4})-([0-9a-zA-Z]{4})- ([0-9a-zA-Z]{4})-([0-9a-zA-Z]{4})$", $mid) Validate email eregi("^[_\.0-9a-z-]+@([0-9a-z][0-9a-z-]+\.)+[a-z]{2,3}$", $email) Search for date of the form XXXX-XX-XX ereg ("([0-9]{4})-([0-9]{1,2})-([0-9]{1,2})", $add_user_date) British Postcode ereg ('^[A-Z]{1,2}[1-9]{1,2} [1-9][A-Z]{2}$', $str) OR eregi('^[A-Z]{1,2}[0-9]{1,2}[A-Z]? ?[0-9][A-Z]{2}$',$postcode) Money eregi('^[1-9]{1}[0-9]*[.]{1}[0-9]{2}$',$price) To ensure data is alpha numeric only ereg('^[[:alnum:]]+$', $data))