$|=1; # So it works in the IDE

@s = qw /Freddy FRED/;

foreach $e (@s){
  if ($e =~ /[A-Z][a-z]+/){       # "alFred" would match! Better version in 7.2.pl
    print "$e matches!\n";
  }
  else {
    print "$e doesn't match!\n"
  }
}
