my $c = qr/(?>--[^\n]*(?:\n|\z))/; # VHDL comment regex