On 03/09/2013 06:56, Jim Gibson wrote:
For readability, use the extended form and the more modern zero-width assertions \A and \z: if ( $_[0] !~ m{ \A [ric] \. (?:[1-578]) | (?:6 (\.[12])? ) \z }ix ) {
Hi Jim You have incorrect parentheses. Your regex matches \A [ric] \. (?:[1-578]) or (?:6 (\.[12])? ) \z which isn't what is wanted at all! Rob -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/