#!/usr/bin/perl -w
use strict;

my @array = ("BOB", "Sheila", "Very", "by", "berry", "beyond");
            
foreach my $word (@array)
{
    my $original = $word;
    $word = uc $word;
    $word =~ s/V/C/g;
    $word =~ s/[AEIOUY]/V/g;
    $word =~ s/[^V]/C/g;
    printf "%-10s %s\n", $original, $word;
}
__END__
BOB        CVC
Sheila     CCVVCV
Very       CVCV
by         CV
berry      CVCCV
beyond     CVVVCC #No!!!