my ($pat, $mods) = regexp_pattern($ref);
my $parentless = ( $pat =~ m/[^:]+:(.*?)\)$/s )[0];