#!/usr/local/bin/perl -w
# analyse_map.perl
# Open map files (map_merc and rom.dld)
open(MAP, ")
{
  if( ($titi, $toto) = /^\.(\w+).*$\t+\.\w+\W+(\w+).*$/m)
  {
        print($titi, $toto, "\n");
  }

}
close(MAP);