Adding to graff's suggestion, using Text::Unidecode will translate your wide characters to ascii:

use utf8;
use Text::Unidecode;

foreach ( @strings ){
    $_ =~ s/([^[:ascii:]]+)/unidecode($1)/ge;
}
[download]