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