while(<FILE>)
{
 if($_ =~ /I/ || $_ =~ /M/ || $_ =~ /O/){}
 else
    {
     print "\n $_";
    }
}