use strict;
use warnings;


my $er= "\\w+(?!tata)"; #AVEC look-ahead négatif

my $chn = "il	esttata	vraiment	zozotata";

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

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