@s = ("blues", "blueberry", "blue", "bigblue", "blue moon", "sad blues");

foreach $e (@s){
  if ($e =~ /^blue\B/){   # ^ for the start of the string
                          # \B makes sure that the word continues
    print "$e matches!\n";
  }
  else {
    print "$e doesn't match!\n"
  }
}
