while ($str =~ m/($regex)/){ print $1, "\n"; }