say $& while $string =~ /\bRequired\b/g;