Help for this page

Select Code to Download

Select or download this
```
my $numps = ($homes =~ tr{|}{});
```

Select or download this

my $middle = int($numps / 2) + 1;
my $pos = -1;
...
    $pos ++;
}
substr $homes, $pos, 1, q{<BR>};