#!/usr/local/bin/perl
use strict;
use warnings;
$a = 'αινσϊ';
$a =~ tr{αινσϊ}
        {aeiou}s;
print $a;
__OUTPUT__
aeaoauauau