Mega Code Archive
Categories
/
Perl
/
Regular Expression
Print line unless it matches E
while(<DATA>){ print unless /E/; # Print line unless it matches E } __DATA__ S B I N J E