if ("breakfast" =~ /[aeiou]/) {
  $x = substr("breakfast", $-[0]);
}