Help for this page

Select Code to Download


  1. or download this
    my @regexps=('\.co\.uk$','[\w\-]+\.com$','\.pl$','\.uk\.com$');
my @domains=qw(foo.com weirdext.za bar.uk.com blah.co.uk perl.pl zzzz.
+co.uk);
...
  while(<@domains>) {
    if (/$regexp/i) {
       ......
  2. or download this
    blah.co.uk
zzzz.co.uk
...
bar.uk.com
perl.pl
weirdext.za