#!/usr/bin/perl

while (my $line = <>) {
    $line =~ s{<OBJECT type="text/site[^"]*">}{}g;
    $line =~ s{</OBJECT>}{}g;
    $line =~ s{<param name="ImageNumber" value="\d*">}{}g;
    $line =~ s{<param name="Name" value="([^"]*)">}{$1}g;
    $line =~ s{<param name="Local" value="">}{...}g;
    $line =~ s{<param name="Local" value="([^"]*)">}{ <a href="$1">##</a>}g;
    $line =~ s{<param name="[^"]*" value="[^"]*">}{}g;

    print $line;
}