in reply to Restrict a match within a string

print join ("^", ($sa =~ m/\((.+?)\)/)[0] =~/(\w+)/g) #I^Want^This^stuff

        ...it is unhealthy to remain near things that are in the process of blowing up.     man page for WARP, by Larry Wall