[- $script = $ENV{SCRIPT_NAME} -]
[- @fields = split("/",$script) -]
[+ $fields[3] +]<br />
[- $script = $fields[3] -]
[+ $script +]<br />

##</code><code>##

[- @field = split(".",$script) -]
[+ @field +]
[+ $field[0] +]<br />
[+ $field[1] +]<br />
[+ $field[2] +]<br />