use strict;
use warnings;


my $er= "\\w+tata"; #SANS look-ahead

my $chn = "il	esttata	vraiment	zozotata";

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

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