% perl -e 'use locale; $_=q{äöü}; print qq{Locale aware!\n} if /^\w+$/;'