Regular Expression Perl

  1. Home
  2. Perl
  3. Regular Expression
  4. Print line unless it matches E
while(){
    print unless /E/;    # Print line unless it matches E
}
__DATA__
    S
    B
    I
    N
    J
    E