{
   local $^I = '';
   local @ARGV = ($filename);
   while (<>) {
       next if CRITERIA_TO_SKIP_LINE;
       print;
   }
}