my $want= ($q->param("at"))[-1];
my $html= $VARS->{freenodelet};
my $update= 0;
$html =~ s{(<!--(\w+-(?!->))?(.*?)(-\w+)?-->)}{
    my( $cmnt, $pre, $mid, $post )= ( $1, $2, $3, $4 );
    my $found= $pre || $post || '';
    $found =~ s/-//;
    if(  $found ne $want  ) {
        $cmnt;
    } else {
        my $add= htmlcode( 'expandfreenodelet','', $mid, 1 );
        $update++;
        $pre ? $add . $cmnt : $cmnt . $add;
    }
}ges;
# Everything::printLog( "Expanding -$want- in $USER->{title}'s freenodelet: $update updates$/" );
$VARS->{freenodelet}= $html
    if  $update;