Mega Code Archive

 

Categories / Perl / Regular Expression

 

Alternation

# Alternation: this, that, and the other thing while(<DATA>){     print if /Mary|Betty|Jon/; } __DATA__     Mary     Betty Boop     Mark