# Don't strip the tags
    #$html =~ s/<.*?>//gs ;

    my (@users) =  $html =~ /<td>by\s[^>]+>([^<]+)/gs ;

    # Or this if there are Perlmonks with "<" in their username
    my (@users) =  $html =~ m[<td>by\s[^>]+>(.*?)</a>]gs ;