for $_(sort @voctable)
{
    open (TMPFILE, "$workdir$_") or die("unable to open $_: $!\n"),br;
    print "[<font color=\"#ff0000\" size=\"+1\">FILE=$_</font>]\n",br;
    print hr;
    while (<TMPFILE>)
    {
        print ("<b>$1</b> $2\n",br) if ( m/(.*$MONTH.*$DAY.*$HOUR:$MINUTE:\d\d:\d\d\s+20\d\d)(.*)/g )
    }
    close (TMPFILE);
}

##</code><code>##

print ("<b>$1</b> $2\n",br) if ( m/(^....$MONTH..$DAY.$HOUR:$MINUTE:..:...20..)(.*)/ )