my $re = join '|', map { qr/\+$_[ACGTNacgtn]{$_}/} 1..20; s/$re//g;