use strict;
use warnings;
use Test::More tests => 2;


my $phrase = qr/club\.market/;


unlike( 'club market', $phrase, 'not match space' );

  like( 'club.market', $phrase, 'match period' );