#!/usr/bin/perl
# fix preformatted code listings to render properly.

while (<>) {
    s/\&/\&amp;/g;
    s/</\&lt;/g;
    s/>/\&gt;/g;
    print;
}

exit(0);