#!/usr/bin/env perl

use strict;
use warnings;

my $regex = qr{ \n
   (?:
      \QI'll be good.\E
      | Hushing
      | Hrumph
      | \Q>:[\E | \Q:-(\E | \Q:(\E | \Q:-c\E | \Q:c\E | \Q:-<\E | \Q:<\E
      | \Q:-[\E | \Q:[\E  | \Q:{\E | \Q:-|\E | \Q:@\E | \Q>:(\E | \Q:'-(\E
 #                     here? ^^^^^
      | \Q:'(\E
      | \QShutting up now.\E
      | \QBut, but...\E
      | \QI'll be quiet.\E
   )
}mix;