use strict;

sub bubifizier(@) {
    my @array = @{shift()};
    my $string = '';

    for (@array) {
        $string .= $_;
        $string .= "b$_" if /[aeiuo]/;
    }

    return $string;
}

my @Array = split //, 'Dies ist ein dummer Testtext...';
print bubifizier(\@Array);

Dibiebes ibist ebeibin dubummeber Tebesttebext...