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