in reply to Re^3: pick a word contaning reg-ex
in thread pick a word contaning reg-ex

Oops - try 
while (/(\w*!\w*)/g) {
   print "$1\n";
}

[download]
A Monk aims to give answers to those who have none, and to learn from those who know more.

In Section Seekers of Perl Wisdom