while (<$file_handle>) { print unless /suchwort/; }