НЕ валидно: Всем доброго времени суток, Помогите составить маску для валидации строк
НЕ валидно: 
НЕ валидно: 1. MyComputer[Любое количество любых символов]End
   валидно: MyComputer[Любое количество любых символов]End
НЕ валидно: НАПРИМЕР 
   валидно: MyComputerssssssEnd
НЕ валидно:  - верно
НЕ валидно: НАПРИМЕР 
   валидно: MyComputer1End
НЕ валидно:  - верно
НЕ валидно: НАПРИМЕР 
НЕ валидно: MyComputer1Endsss
НЕ валидно:  - неверно
НЕ валидно: 1. 
   валидно: MyComputer [Любой один символ из множества ( , - . + )] End
НЕ валидно: 
   валидно: MyComputer,End
   валидно: MyComputer-End
   валидно: MyComputer+End
   валидно: MyComputer.End
НЕ валидно: 
   валидно: MyComputer [Любой один символ из множества ( , - . + )] End
   валидно: MyComputer [Любой один символ из множества ( , - . + )] End
   валидно: MyComputer [Любой один символ из множества ( , - . + )] End
НЕ валидно: 
НЕ валидно: НАПРИМЕР 
   валидно: MyComputer-End
НЕ валидно:  - верно
НЕ валидно: НАПРИМЕР 
НЕ валидно: MyComputer---End
НЕ валидно:  - неверно
НЕ валидно: 
НЕ валидно: 
НЕ валидно: Заранее всем благодарен 

#!/usr/bin/perl


$x = "Всем доброго времени суток, Помогите составить маску для валидации строк

1. MyComputer[Любое количество любых символов]End
MyComputer[Любое количество любых символов]End
НАПРИМЕР 
MyComputerssssssEnd
 - верно
НАПРИМЕР 
MyComputer1End
 - верно
НАПРИМЕР 
MyComputer1Endsss
 - неверно
1. 
MyComputer [Любой один символ из множества ( , - . + )] End

MyComputer,End
MyComputer-End
MyComputer+End
MyComputer.End

MyComputer [Любой один символ из множества ( , - . + )] End
MyComputer [Любой один символ из множества ( , - . + )] End
MyComputer [Любой один символ из множества ( , - . + )] End

НАПРИМЕР 
MyComputer-End
 - верно
НАПРИМЕР 
MyComputer---End
 - неверно


Заранее всем благодарен 
";

#print "строки: $x\n";

@array = split /\n/,$x;

#print $#array;

foreach $sss (@array){
    #print $sss,"\n";
    if (  $sss =~ /^MyComputer.+?End$/
       and $sss !~ /^MyComputer[,-]{2,}?End$/
    ) {print "   валидно: $sss\n"}
    else {print "НЕ валидно: $sss\n"}
}