Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
#

...
        print "$domain did not match\n\n";
}

Select or download this

[~/code/perl] ./match.pl someRandomName.
Got someRandomName.
someRandomName. matched
...
[~/code/perl] ./match.pl someRandomName-
Got someRandomName-
someRandomName- matched