Added String Consonantcase perl (#4760)

Co-authored-by: Adesh Bhosale <adesh@Adeshs-MacBook-Air.local>
Co-authored-by: Harsh Raj <harshraj8843@gmail.com>

program/program/convert-string-to-consonantcase/convert_string_to_consonantcase.pl

@@ -0,0 +1,16 @@
+sub consonantcase {
+    my ($input) = @_;
+    my %vowels = ('a' => 1, 'e' => 1, 'i' => 1, 'o' => 1, 'u' => 1);
+    my @chars = split('', $input);
+    for my $char (@chars) {
+        if (exists $vowels{lc($char)}) {
+            print lc($char);
+        } else {
+            print uc($char);
+        }
+    }
+    print "\n";
+}
+
+# Test with input "hello world"
+consonantcase("hello world");