Yet Another CPAN Grep

App-Tailor ( J/JE/JEFFOBER/App-Tailor-0.02.tar.gz, JEFFOBER, 2020; MetaCPAN )

App-Tailor/lib/App/Tailor.pm ( view source; MetaCPAN )

App::Tailor;
  use JSON::XS qw(decode_json);

  # ignore lines containing /ping
  ignore qr/\/ping/;

  # parse JSON-encoded lines
  modify qr/^{/ => sub{
    my $data = decode_json $_;
    my $msg  =