$total_raw = "(?!(" .  # CORRECT, MAYBE
    join ("|",
        map (
            "(?<=\Q$pre[$_]\E)ALPHA(?=\Q$suf[$_]\E)",
            (0..$#pre)
        )
    )
    . "))ALPHA";
$total_rx = qr/$total_raw/;