use strict;
use warnings;


my $er= "\\w+(?=\t)";

my $chn = "il	est	vraiment	zozo";

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

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