title: How to extract the words through pattern matching?
body: <pre><code>#!/usr/bin/perl
  
  use strict;
  use warnings;
  my $string = "praveen is a good boy";
  my @try = split(/([a,e,i,o,u]).*\1/,$string);
  print "@try\n";
  </code></pre>
  
  <p>I am trying to print all words containing 2 adjacent vowels in a given string.<br>
  o/p : has to be "praveen" and "good" .</p>
  
  <p>I tried with the negate exp [^] to split and give only the 2 adjacent vowels.</p>