use utf8;
$utf8_text =~ s/\p{General_Category=Currency_Symbol}+/€/g;