use locale;
"Ärgerlich" =~ '\b\w*e\w*\b';
print $&;