$_ =~ /[$polar.$charged]
       ([$hydphb]|[$polar]){18-24}
      [$polar.$charged]/;
$_ =~ /H[$hydphb][$polar][$hydphb]W/;