$string = 'this is a really long string (no really, it is!) that contains a whitespace delimited word'; print $1 while $string =~ m[(\b\S*limit\S*\b)]gi;; ## All words, case insensitive. delimited