my @matches;
foreach ( split "foo", $string) {
	push @matches, $1 if /(.*)tarbar/;
}