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