my $words = "y____x_z dddetr  x_y erre  yyy_";
while ($words =~ /([\S]*_[\S]*)/g)   {  print "$1\n";  };