Below is of no use, I just test (if and) how the Page will display some coding:

-------------------

if ($reserve <= 0) {
$reserves+=$lastbid[2];
}
if ($#bids > 0) {
$totalbids++;
$totalbidamt+=$lastbid[2];
}
$totalitems++;
my $max = &parsebid($reserves);
my $hibid = bidformat($max);

$form{'IMAGE4'} =~ s/[\"\'\}\{\)\(\+]//g;
$form{'IMAGE4'} =~ s/(<[\s\/]*)(script\b[^>]*>/$1x$2/gi;
$form{'IMAGE4'} =~ s/<!(?:--[\s\S]*?--\s*)?>\s*//g;
$form{'IMAGE4'} =~ s/[\~\^]//g;
$form{'IMAGE4'} =~ s/~!/ ~!/g;
$form{'IMAGE4'} =~ s/<*(javascript)[^>]+>//gi;
$form{'IMAGE4'} =~ s/<*(iframe)[^>]+>//gi;
$form{'IMAGE4'} =~ s/<*(script)[^>]+>//gi;
$form{'IMAGE4'} =~ s/<*(applet)[^>]+>//gi;
$form{'IMAGE4'} =~ s/<*(embed)[^>]+>//gi;
$form{'IMAGE4'} =~ s/system\(.+//g;
$form{'IMAGE4'} =~ s/alert//g;


if ( -e "$config{'basepath'}$config{'data_file'}/$config{'count_file'}" {
open(DATA, "$config{'basepath'}$config{'data_file'}/$config{'count_file'}"|| file_error("Error reading $config{'basepath'}$config{'data_file'}/$config{'count_file'} : $!";
my @data=<DATA>;
close(DATA);

foreach my $data_value (@data){
my($logged_ip, $logged_time) = split(/\|/, $data_value);
my $time_diff=$time_now-$logged_time;
push(@new, $data_value) if ($time_diff <= $timeout);
}
}

open(UPDATED, ">$config{'basepath'}$config{'data_file'}/$config{'count_file'}"|| hoppla("Kann Countfile nicht schreiben : $!";
foreach my $record (@new) {
my($logged_ip, $logged_time) = split(/\|/, $record);
print UPDATED "$record" if ($visitor_ip ne $logged_ip);
$visitors++ if ($visitor_ip ne $logged_ip);
}

---------------------

Seems to reproduce Smilies out of certain parts of code. The Forum Script should offer an option like [code] blah blah blah [/code] to make it usable for Code-insertion in technical Forum Sites.

Ernie