$node_contents =~ s/(http:\/\/)?(www\.)?(perlmonks\.)(org|net|com)\/(.*)/$1www.perlmonks.$4\/$5/g;