$res =~ s/\s//g;
$domchain =~ s/\s//g;
$pdbchain =~ s/\s//g;