use strict;

sub do_it_for_anonymous_monk {
    my @words = @_;
    my $word;
    my @results;
    foreach $word (@words) {
        if (($word =~ m/^[a-z|A-Z].*[a-z|A-Z]$/) && ($word !~ /--/)) {
             push @result, $word;
        }
    }
    return @results;
}

my @words = ("br-ian", "bri--an", "br-i-an", "brian", "brian0", "brian
+o", "2sdha");
do_it_for_anonymous_monk(@words);
[download]