How can I do a global regular expression match in Perl?
I am trying to come up with a regular expression in Perl matching multiple patterns and returning all of them like preg_match_all in PHP does. Here's what I have: $str = 'testdatastring'; if($str =~ /(test|data|string)/) { print "its found index location: $0 $-[0]-$+[0]\n"; print "its found index location: $1 $-[1]-$+[1]\n"; print "its found index location: $2 $-[2]-$+[2]\n"; print "its found index location: $3 $-[3]-$+[3]\n"; } This only gives me the first match which in this is 'test'. I want to be able to match all occurrences of specified patterns: 'test', 'data' and 'string'. I know that