use utf8;
use strict;
use warnings; no warnings "redefine";

sub strip_kn($) {
	my($kn) = @_;
	return "" if not defined $kn or $kn !~ /^###/;

	$kn = " $kn ";
# Typ_112:bla_fasel -> T:112
	$kn =~ s/([A-Z])[a-z]+/$1/g;
	1 while $kn =~ s/\([^()]+\)//g;
	$kn =~ s/(\d)\:\w+\/(\d)/$1\/$2/g; # Bla_12:YYY/23:XXX => Bla_12/23:XXX
	1 while $kn =~ s/\s+(\S+)_([\d\/]+)(?:\:\S+)?\s+/ $1:$2 /g;
	$kn =~ s/^\s+//;
	$kn =~ s/\s*$/ /;
	$kn;
}
1;
