$_='axxbcaxbagaxbacba';
foreach my $a (m/a(.*?)b/g) {
	print "$a\n";
}