@s = qw /Fred FreD FreDdy FRED/;

foreach $e (@s){
  if ($e =~ /^[A-Z][a-z]+$/){ # use anchors to define start/end of a word
    print "$e matches!\n";
  }
  else {
    print "$e doesn't match!\n"
  }
}
