my $pattern = qr/ \s* \s* /x;