If I might interject..... This seems to be an excellent occasion for the PerlRE 'negative look-ahead' code.... (excuse the line wrap):
body =~ /(?!www\.[a-z]{2,6}[0-9]{2,6}\.(com|net|org)) www[^a-z0-9]+[a-z]{2,6}[0-9]{2,6}[^a-z0-9]+(com|net|org)/i ...unless someone can think of an FP for this rule? - C