use utf8;

my $scandir = 'something with umlauts it it';

##</code><code>##

# ...is this string literal not part of the source?

##</code><code>##

...
use Devel::Peek;
...

##</code><code>##

FLAGS = (PADMY,POK,pPOK,UTF8)

##</code><code>##

FLAGS = (PADMY,POK,pPOK)