+sub _restricted_identification_sepa1 {
+ my ($self, $string) = @_;
+
+ $string =~ s/[^A-Za-z0-9\+\?\/\-:\(\)\.,' ]//g;
+ return substr $string, 0, 35;
+}
+
+sub _restricted_identification_sepa2 {
+ my ($self, $string) = @_;
+
+ $string =~ s/[^A-Za-z0-9\+\?\/\-:\(\)\.,']//g;
+ return substr $string, 0, 35;
+}
+