in reply to variables in global match in regex
while ($mystring =~ m/my.*?\((\S*?)\)/g) { print "$1 \n"; } output: red1 blue1 red2 blue2 red3 blue3 red4 blue4 red5 blue5 red6 blue6 [download]