#!/usr/bin/perl -w use strict; while () { print unless /\bgroup\b/; } =prints: This line is OK But keep this grouped content =cut __DATA__ This line is OK This line should be skipped: 'group' Drop this group too But keep this grouped content