? my ($app, $msg) = @_; ? my $classes = join " ", ( ? grep {$msg->{$_}} qw/highlight self consecutive monospaced avatar/, ? );