my @names = qw/Árni Óli Þorgeir Ýr Ægir Þór /;
my @names = fix_chars(@names); 
print "$_\n", for @names;

sub fix_chars
{
for (@_) 
	{ 
	tr/ÁÐÉÍÓÚÝÖáðéíóúýö/ADEIOUYOadeiouyo/; 
	s/Þ/Th/; 
	s/Æ/Ae/; 
	s/þ/th/; 
	s/æ/ae/;
	s/\W/_/g; # Throw away any remaining non-word chars
	push @ok,$_;
}
return @ok;
}