use warnings; use strict; while (){ print unless /computer.|^\s+$/i; } __DATA__ COMPUTER1 ACCT1 ACCT2 ACCT3 #### print grep{!/computer.|^\s+$/i}; #### ACCT1 ACCT2 ACCT3 ACCT4 ACCT7 ACCT8 ACCT9