Re^4: pick a word contaning reg-ex

[space_monk]

Oops - try

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