sub match_re { my $self = shift; return $self->{match_re} ||= do { my $match_string = $self->match_string; qr/\Q$match_string\E/; }; }