use strict;
use warnings;


my $er= "(?<=(?:est|zoz))\\w+"; 
#Attention ! les 2 chaînes du look-behind doivent être de même longueur

my $chn = "il	esttata	vraiment	zozotata";

my @res = $chn =~ m/$er/g;

foreach my $r (@res) {
	print "$r\n";
}
