use Encode;
# Scriptdatei in ANSI, cp1250
my $name  = 'Šantl';
my $vname = 'Gašper';
# Zeichenkodierung einschalten
$vname = decode('cp1250', $vname);
$name  = decode('cp1250', $name);
my $upper = decode('cp1250', 'Š');
my $lower = decode('cp1250', 'š');
$, = "\n";

print 
    $vname =~ /$upper/i,
    $name  =~ /$lower/i