Next Regular Expression Mastery 60

Run-Time Construction Disaster

        my @pats = ('fo*', 'ba.', 'w+3');
        while (<>) {
          foreach $pat (@pats) {
            print if /$pat/;
          }    
        }


Next Copyright © 2002 M. J. Dominus