dandv

use strict;
 
my $content = '=toc<br />
=toc 2-4<br />
<p>=toc 2</p>
<div id="stff">=toc -3<br />
<p>=toc 2-</p>
';
 
my ($toc_h_min, $toc_h_max);

dandv

#!/usr/local/bin/python

import string, sys

# If no arguments were given, print a helpful message
if len(sys.argv)==1:
    print 'Usage: celsius temp1 temp2 ...'
    sys.exit(0)

# Loop over the arguments

dandv

#! perl -w
use strict;
 
my $content = '=toc<br />
=toc 2-4<br />
<p>=toc 2</p>
<div id="stff">=toc -3<br />
<p>=toc 2-</p>
';