#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
local $Data::Dumper::Purity;$Data::Dumper::Purity = 1;
local $Data::Dumper::Useqq;$Data::Dumper::Useqq = 1;
local $Data::Dumper::Deparse = 1;$Data::Dumper::Deparse = 1;
local $Data::Dumper::Sortkeys;$Data::Dumper::Sortkeys = sub {
	my ($hash) = @_;
	return [(sort {lc $a cmp lc $b} keys %$hash)]; 
};
use 5.010;

my $name = "Zala Kralj & Ga\250per \246antl"; # no, that's not actually *my* name.
my @liste;
for (my $p = 0; $p < length($name); $p ++) {
	if (substr($name,$p,1) =~ /[^0-9a-z @\.,_#+±%()\[\]\$\-~¿!'&§°¨ßäöüÅÄÁÀÃÂÖÜÚÉÈÑþœçáàåãâëéèêòóúùîïí©øØô½ñšŠý®¬µ¯]/i) {
		push @liste,$p+1;
	}
}
say Dumper(\@liste);