http://www.perlmonks.org?node_id=1029867


in reply to Web Address Validation

If this assignment were part of an obfuscation contest, I would say this: 

$_=$,;$,=$/;$/=$_;$_=<DATA>;print/([-_a-z_-]+)\x2eco(?:m|m?\x2e[a-z][a
+-z])\s/gi;
__DATA__
http://www.tesco.com http://www.mmu.ac.uk http://www.amazon.com http:/
+/www.ikea.co.uk http://plus.maths.org

[download]

In Section Seekers of Perl Wisdom