Why Use Regular Expressions?

if($plan =~ m/cunning/) {
  execute($plan);
}
$speech =~ s/short/vertically challenged/g;