while ($text =~ m/($HttpUrl)/g) { print "Found URL: $1\n"; } ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl