$ perl -MO=Deparse -e 's{http://example.com}{[404 Not Found]}g'
s[http://example.com][[404 Not Found]]g;
-e syntax OK