$START = $alpha_S; $G = qr/ ^ (??{$START}) $ /x;