if ($type eq 'message') {
my $text = $ev->{'text'} // $ev->{'message'}{'text'};
- $text =~ s/<#[A-Z0-9]+|[^>]+>//g; # Don't match dates in channel names.
+ $text =~ s/<[^>]+>//g; # Don't match dates in channel names or URLs.
if ($text =~ /(20\d{2}-\d{2}-\d{2})/) {
# TODO: What if edits happen out-of-order?
my $date = $1;