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