use utf8;
# Datei in UTF-8
my $name  = 'Šantl';
my $vname = 'Gašper';

$, = "\n";
print 
    $vname =~ /Š/i, # 1
    $name =~ /š/i;  # 1