my @zeilen = (
    'Men are from Mars.',
    'Women are from Venus.',
    'Computers are from Hades.');

my @result = map (m/[aeiou]/g,@zeilen);
print join(",", @result), "\n";