String to vowelcase (#4806)

Co-authored-by: Harsh Raj <harshraj8843@gmail.com>
codinasion-archive · Dec 1, 2023 · 4edeb1d · 4edeb1d · vercel · Dec 1, 2023
1 parent 2934c15
commit 4edeb1d
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/program/program/convert-string-to-vowelcase/convert_string_to_vowelcase.pl b/program/program/convert-string-to-vowelcase/convert_string_to_vowelcase.pl
@@ -0,0 +1,15 @@
+print "Enter a string: ";
+chomp(my $str = <STDIN>);
+my $result = '';
+$str = lc($str);
+foreach my $char (split //, $str) 
+{ 
+  if ($char =~ /[aeiou]/) 
+  {   
+    $result .= uc($char);
+  } 
+  else
+  {    
+    $result .= lc($char);
+  }}
+print $result;