@array = $token->[1]{href} || "-";

##</code><code>##

push @array, $token->[1]{href} || "-";

##</code><code>##

my $p= HTML::TokeParser->new(\$page);

while (my $token = $p->get_tag("a")) {
    push @array, $token->[1]{href} || "-";
    my $text = $p->get_trimmed_text("/a");
}

for (@array){

    next if /^-$/;  # skip if line eq '-'

    s/
        test.txt
        | \/
        | \?C\=N;O\=D
        | \?C\=M;O\=A
        | \?C\=S;O\=A
        | \?C\=D;O\=A
    //xg;

}