#!/usr/bin/perl -w
use strict;
my $domain = $ARGV[0];
print "Got $domain\n";
if ($domain =~ /^[A-Z0-9]+[A-Z0-9-]+[A-Z0-9]$/i)
{
        print "$domain matched\n\n";
}
else
{
        print "$domain did not match\n\n";
}
__END__
Got someRandomName.
someRandomName. did not match

Got someRandomName-
someRandomName- did not match

Got someRandomName
someRandomName matched

Got someRandomName-X
someRandomName-X matched

Got someRandomName-Foo
someRandomName-Foo matched