use Encode;

my $name = 'Šantl';     # Scriptdatei in ANSI!!!
my $vname = 'Gašper';
# Kodierung einschalten
$vname = decode('ISO-8859-15', $vname);
$name = decode('ISO-8859-15', $name);
$, = "\n";
print $name =~ /Š/i, $vname =~ /Š/i;