$text =~ s{ \b # Capture the address to $1 . . . ( \w[-.\w]* # username @ [-\w]+(\.[-\w]+)*\.(com|edu|info) # hostname ) \b }{$1}gix; ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl