sub search_file
{
    my ($filename) = @_;
    open (TMPFILE, "$filename") or die("unable to open $filename: $!\n"),br;
    print h3("$_\n");
    while (<TMPFILE>)
    {
        if ( m/^....($MM1|$MM2|$MM3|$MM4|$MM5|$MM6)/)

        {
            s/($SEARCH|$SEARCH1|$SEARCH2)/<font color=\"#0000ff\"><b>$1<\/b><\/font>/o;
            print "$_\n",br;
        }
    }
    close (TMPFILE);
}