#!/usr/bin/perl

while(<DATA>){
@contents = grep { !/IT/ } $_;
print @contents;
}
__DATA__
Economic slow down in IT
HI