#!/usr/bin/perl -w

use Encode qw(encode decode);

$\ = "\n";

decode('utf-8',"Ärgerlich") =~ '\b\w*e\w*\b';
print $&;