This will find 10116 possibilities. That should be keep you going for a while, considering the planet only came into existence 1017 seconds ago (almost yesterday!)
use strict;
use warnings;
use feature qw( say );
use Algorithm::Loops qw( NestedLoops );
my @char_set1 = ('a'..'z', 'A'..'Z', '0'..'9' );
my @char_set2 = ('a'..'z', 'A'..'Z', '0'..'9', '-');
my @char_set3 = (undef, 'a'..'z', 'A'..'Z', '0'..'9', '-');
my @char_set4 = ('a'..'z', 'A'..'Z');
my @char_set5 = (undef, 'a'..'z', 'A'..'Z');
my $iter = NestedLoops([
(\@char_set4) x 2,
['.'],
(\@char_set3) x 60,
\@char_set2,
\@char_set1,
]);
while (my @chars = $iter->()) {
say join '', reverse grep defined, @chars;
}
This is not a general approach, just one that works well in this situation.