{
  local $/ = "";
  while ( <IN> )
    push @terms, map ({s/\n/ /}, m|<M>(.+?)</M\d+>|gis);
    push @avionics, map ({s/\n/ /}, m|<M>(.+?)</M>|/gis);
    }
}
{
    local $, = "\n";
    print @terms;
    print @avionics;
}