http://www.perlmonks.org?node_id=1007058


in reply to extracting words with certain characters

The following code may get you started:

my $words = "y____x_z dddetr x_y erre yyy_"; while ($words =~ /([\S]*_[\S]*)/g) { print "$1\n"; };
It looks for any words containing an underscore-character and prints them. Due to the loop and the /g-modifier it will even all words containing an underscore

I intentionally wrote get you started, as there are some basic assumptions inside, e.g.:

This webpage may help you understanding the regex.

HTH, Rata