$hydphb='GAFIVL';
$polar='DEHAW';
$charged='DGYAH';

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