cat file1 | perl -e 'while(<>){ next if !/\bIMO/i; print $_;}'