+sub _replace_special_chars {
+ my $self = shift;
+ my $text = shift;
+
+ my %special_chars = (
+ 'ä' => 'ae',
+ 'ö' => 'oe',
+ 'ü' => 'ue',
+ 'Ä' => 'Ae',
+ 'Ö' => 'Oe',
+ 'Ü' => 'Ue',
+ 'ß' => 'ss',
+ '&' => '+',
+ '`' => '\'',
+ );
+
+ map { $text =~ s/$_/$special_chars{$_}/g; } keys %special_chars;
+
+ # for all other non ascii chars 'OLÉ S.L.' and 'Årdberg AB'!
+ use Text::Unidecode qw(unidecode);
+ $text = unidecode($text);
+
+ return $text;
+}
+