#!/usr/local/bin/perl5.8.8 -p
# $Id: retex 757 2006-01-26 16:53:09Z marknodine $
use bytes;
BEGIN {
    if ($[ > 5.008) { eval "use bytes"; print STDERR "Here\n"}
}

# Converts an HTML file to a regular-expression HTML

# Protect regular expression characters (do this FIRST)
s/([\(\)\[\]\{\}\.\+\*\?\|\\\^\$\@\%])/\\$1/g;

# Don't require match on date
s/(\\date\\\{)(.*)(\\\})/$1($2|.*)$3/;