my $self = qr/\[$word\]/; bless($self, $class);