$text =~ s{cow\s+(\w+)\s+over}{
  do_action( $1 );
  $1 = calculate_new_action( $1 );
}E;