Heh, there's code very similar to this (but written in Perl 4 and a lot shorter) as part of the State's evidence in my criminal trial. Larry Wall commented that it was Perl, but not very good Perl. {sigh}