my $pattern = qr{ pa+rt }xims;