my $pattern = "(?