my $data = "foofdsfdsbar";
my @matches = 
    $data =~ m/(foo)(?{print "($1,$2,$+)"})|(bar)(?{print "($1,$2,$+)"})/g;
__DATA__
(foo,,foo)(,bar,bar)