{   my $secret = qr/^word$/;
    sub guess {
        $_ = shift || '';
        m/$secret/;
    }
}